REAL TIME CLOCK TEST AH-8878J-MC JUL 1978 


CZKWBJO COPYRIGHT ‘ 72-78 dj ig} i|tla}! 


FICHE 10F1 MADEIN USA 








CZKWBJO KW11-P RT CLK TST 


CZKWBJ P11 


CONG VWEWNH OO OCONA MBWr 


med eed ad td od ed od 


19-APR-78 09:55 


rN 


B 1 
MACY17 30A(1052) 19-APR-78 09:58 PAGE 1 


SEQ 0001 
-REPT 0Q 
IDENTIFICATION 
PRODUCT CODE: AC-8877J-MC 
PRODUCT NAME: CZKWBJO KW11-P RT CLK TST 
PRODUCT DATE: 1-MAY~-78 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: JOHN RODENHISER/JIM LACEY 
REVISED BY: W.F.KELLICKER AUG 30,1974 
A.J.COSSETTE NOV.21,1975 
M. SOARES NOV.21.1975 
B. SUSSMAN JAN.02,1978 


W. SCHLITZKUS MAY.01,1978 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1972, 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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SEQ 0002 


ABSTRACT 


THIS PROGRAM TESTS THE KW11-P REAL TIME CLOCK. IT CONTAINS 

A SERIES OF INCREMENTAL ROUTINES THAT TEST THE CONTROL AND 
STATUS REGISTER, COUNT SET BUFFER, COUNTER, AND INTERRUPT VEC- 
TOR ADDRESS USING 100KHZ, 10KHZ, LINE AND 

EXTERNAL FREQUENCIES. 


REQUIREMENTS 
EQUIPMENT 


PDP-11 WITH KW11-P 

STORAGE 

THIS PROGRAM OCCUPIES MEMORY FROM 0 TO 11636. 
head ag PROCEDURE 


PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED 

1. ABSOLUTE LOADER MUS’ BE IN MEMORY. 

2. PLACE BINARY TAPE IN READER. 

3. LOAD ADDRESS *7500 (* DETERMINED BY LOCATION OF LOADER). 
4. PRESS "START (PROGRAM WILL LOAD). 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 


SET SWO=1 TO ENABLE TESTS USING EXTERNAL FREQUENCY. 
SET SW2=1 TO INCLUDE REPEATABILITY TEST T25 & 126 IF COW IS PRESENT 


STARTING ADDRESSES 


200 BASIC TEST 

204 RESTART ADDRESS-PRIMARILY USED BY XOR TESTER 
210 TIMING TEST 

214 DOUBLE OR SINGLE REAL TIME CLOCK TEST. 100KHZ. 
220 DOUBLE OR SINGLE REAL TIME CLOCK TEST. 10KHZ. 
224 DOUBLE OR SINGLE REAL TIME CLOCK TEST. 60H7Z. 
230 DOUBLE OR SINGLE REAL TIME CLOCK TEST 50HZ 


PROGRAM AND/OR OPERATOR ACTION 

IF NO HARDWARE SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL 

AUTOMATICALLY USE THE CONTENTS OF LOC. 176 AS THE SOFTWARE SWITCH REGISTER. 
THE USER SHOULD SET UP THIS LOC. BEFORE STARTING THE PROGRAM. 


LOAD PROGRAM INTO MEMORY 

SET SWITCH REGISTER TO STARTING ADDRESS 

LOAD ADDRESS. 

IF DESIRED TO ENABLE EXTERNAL FREQUENCY TESTS SET SwO=1. 
PRESS START 

PROGRAM WILL BEGIN TESTING 


OPERATING PROCEDURE 
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110 mel OPERATIONAL SWITCH SETTINGS 

He. 5.1.1 BASIC TEST 

113 WITH SWITCHES 12 THRU 15=0 (DOWN) THE PROGRAM WILL PRINT OUT 
114 ON ERRORS AND CONTINUE IN TEST. BELL WILL RING AT COMPLETION 
a OF A PASS. 

117 SWITCH SETTINGS ARE: 

118 SW15=1 OR UP...HALT ON ERROR 

119 SW14=1 OR UP...SCOPE LOOP 

120 SW13=1 OR UP... INHIBIT PRINTOUT 

121 SWI1=1 OR UP...SINGLE ITERATIONS ONLY 

122 SW4 =1 OR UP...ENABLE SYNCHRONIZATION TESTS 

123 SW3 =0 OR DOWN...ADJUSTS DELAYS FOR 11/60, 11/70 OR 11/45 WITH MOS OR SIPOLAR ME 
LF SW2 =1 OR UP...CLK2 PRESENT-EXECUTE REPEATABILITY TESTS 

be Jad SUBROUTINE ABSTRACTS 

LE 5.2.1 SCOPE 

130 TRIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUB-TEST IN THE 
131 BASIC TEST SECTION. IT RECORDS THE STARTING ADDRESS OF EACH 
132 SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS REQUESTED, 
= IT WILL JUMP TO THE START OF THE SUB-TEST INDICATED BY ‘’SCOPE’’. 
LS Sete | MT 

137 THIS SUBROUTINE CALL PRINTS THE ADDRESS THAT TAGS THE FAILING 
138 . SUB-TEST AND THE CONTENTS OF THE CONTROL AND STATUS REGISTER, 
139 COUNTER, AND ‘‘TEMP’’, 

140 

141 

142 6. ERRORS 

co 6.1 ERROR PRINTOUT FORMAT 

145 WITH SW13=0 (OR DOWN) THE FOLLOWIG PRINTOUT WILL APPEAR ON 
1a7 AN ERROR: 

148 PC STATUS COUNTER TEKP 

Le XXMXXMX MMMXXX MAAMXXK MAXX 

151 PC = ADDRESS OF TEST WHERE ERROR OCCURRED 

152 STATUS = CONTENTS OF COMMAND AND STATUS REGISTER AT TIME OF ERROR 
153 COUNTER = CONTENTS OF COUNTER AT TIME OF ERROR 

Lf TEMP = CONTENTS OF ADDRESS ‘‘TEMP’’ USED BY SOME TESTS. 

156 NOTE: NOT ALL OF THE INFORMATION PRINTED IS INTENDED 

157 TO BE USEFUL FOR EVERY TYPE OF ERROR. THIS IS SIMPLY 
158 A STANDARD ERROR REPORT FOR ALL ERRORS. THE OPERATOR 
159 MUST REFER TO THE PROGRAM LISTING AT THE ADDRESS OR 
oa THE ERROR FOR A DESCRIPTION OF THE CAUSE OF THE ERROR. 
by 6.2 ERROR RECOVERY 

164 WITH SWITCH 15=1 (OR UP) THE PROGRAM WILL HALT ON AN ERROR, 


165 DEPRESS ‘’CONTINUE’’ TO RESUME TESTING. 
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SEQ 0004 


RESTRICTIONS 
OPERATIONAL RESTRICTIONS 


FOR PURPOSES OF TESTING THE EXTERNAL FREQUENCY SELECTION IT 

IS NECESSARY TO SUPPLY A KNOWN FREQUENCY TO THE EXTERNAL FRE- 
QUENCY INPUT. THIS PROGRAM USES THE INTERNAL 60HZ FOR ITS 
SOURCE. TO DO THIS IT IS REQUIRED THAT A JUMPER WIRE BE CON- 
NECTED BETWEEN PINS CF1 AND DA1 OF THE SLOT IN WHICH THE CLOCK 
MODULE IS INSERTED. IF THIS IS NOT DONE, THEN THE PROGRAM MUST 
ALWAYS BE RUN WITH SWO=0 TO SUPPRESS THE EXTERNAL TESTS. 

* IF A SECOND P CLOCK IS BEING USED FOR TEST PURPOSES, SET 
“tae tar = 000004 TO ENABLE TESTS 125 AND 126, DURING 


MISCELLANEOUS 
EXECUTION TIME 


BASIC TEST REQUIRES 11 SECONDS PER PASS W/O ITERATIONS 66 WITH. 
TIMING TEST REQUIRES 4 MINUTES FER PASS. 
DOUBLE OR SINGLE REAL TIME CLOCK TEST-DETERMINED BY OPERATOR 
SUGGESTED EXECUTION TIMES ARE: 
1. IF THE SINGLE CLOCK TEST IS RUN WITHOUT BEING FOLLOWED 
BY THE DUAL CLOCK TEST: 17 MINUTES FOR EACH FREQUENCY (100KHZ,10KHZ,60KHZ) 


2. IF THE SINGLE CLOCK TEST IS FOLLOWED BY THE DUAL TEST 
RUN SINGLE CLOCK TEST FOR ONE MINUTE (FOR EACH FREQUENCY) 
RUN DUAL CLOCK TEST FOR FIFTY SECONDS (10 PRINTOUTS) (FOR EACH FREQUENCY) 


NOTE: THIS TIME NOMINAL TIME FOR PDP-11/05 
OTHER C.P.U."S THE TIME WILL VARY 


PROGRAM DESCRIPTION 


THE PROGRAM CONSISTS OF THREE SECTIONS: THE BASIC TEST THE 

TIMING TEST AND THE REAL TIME CLOCK TEST. THE BASIC TEST CHECKS EACH OF 

THE INDIVIDUAL BITS IN THE CONTROL AND STATUS REGISTER, COUNT SET BUFFER, AND 
COUNTER ALONG WITH PROPER OPERATION UNDER INTERRUPT CONTROL 

(SINGLE OR REPEATED INTERRUPTS) COUNT UP OR COUNT DOWN, AND 

REPEATABILITY. THE TIMING TEST USES ALL CLOCK FREQUENCIES TO 

RING THE TELETYPE BELL AT 10 SECOND INTERVALS. 

THE CLOCK TEST PROVIDES A REAL TIME CLOCK 

WHOSE ACCURARCY CAN BE MEASURED AGAINST AN 

ACCURATE EXTERNAL SOURCE. 


BASIC TEST 
TEST DESCRIPTION 
TO THRU T9 TEST THAT CSR, COUNT SET BUFFER AND COUNTER 


‘BITS MAY BE SET AND CLEARED. 
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110 THRU T11 TEST FIX(BIT5) TO SINGLE CLOCK COUNTER. 
T12 THRU T15 TEST CLOCK TO COUNT UP. 

T16 THRU T19 TEST CLOCK TO COUNT DOWN. 

T20 THRU T24 TEST INTERRUPT MODES. 


T25 THRU 126 TEST REPEATABILITY BY CHECKING THAT THE COUNTER 
CONTAINS THE SAME NUMBER OF COUNTS OVER TwO 
EQUAL PERIODS OF TIME. 


TIMING TEST 


THIS TEST USES THE REPEATED INTERRUPT MODE TO RING THE TELETYPE 
BELL AT 10 SECOND INTERVALS. FIRST THE BELL IS RUNG A! 10 SE- 
COND INTERVALS FOR 1 MINUTE USING 100HKZ, FOLLOWED BY 1 MINUTE 
AT 10KHZ FOLLOWED BY 1 MINUTE AT LINE FREQ. (60HZ OR SOHZ) AND 
oe =1) 1 MINUTE AT LINE FREQ. USING EXTERNAL FREQUENCY 


DOUBLE OR SINGLE REAL TIME CLOCK TEST 
SINGLE CLOCK REAL TIME TEST 

THE 24 HOUR CYCLE: 

THIS TEST TRANSFORMS YOUR COMPUTER INTO AN 
ACCURATE DIGITAL “WALL CLOCK."’ A NORMAL 
CLOCK"S 12 HOUR CYCLE HAS BEEN REPLACED BY 
A 24 HOUR CYCLE. 


EXAMPLES OF THE 24 HOUR CYCLE FOLLOW: 


ACTUAL TIME PRINTOUT 
HRS MINS SECS .TENTHS+HUNDRETHS OF SECS. 
MIDNIGHT os. 2 3: Os 
732 A 08 32 00 . 00 
12 NOON l2 00 00 . 00 
2:15 PM 14 p32 'O . @& 
11:30 PM 23 ax. 


ENTERING THE TIME 


THE CLOCK CAN BE UPDATED BY HOLDING THE CTRL KEY COWN 
AND TAPPING THE I KEY. THE CTRL KEY IS THEN RELEASED, 
AND THE STARTING TIME IS ENTERED. 


THE MOST SIGNIFICANT HOUR DIGIT IS eee FIRST. 
THIS DIGIT MUST BE A ZERO, A ONE OR A TwO. 

THE LEAST SIGNIFICANT HOURS DIGIT IS AENTERED NEXT FOLLOWED BY 
THE TWO MINUTES DIGIT, FOLLOWED BY THE TWO SECONDS DIGIT. 

THE FRACTION OF A SECOND DIGITS ARE NOT ENTERED. THE 

USER WILL ENTER A TOTAL OF SIX DIGITS WITH NO SPACES, COLONS, 
OR ANY OTHER CHARACTERS BETWEEN DIGITS. THE USER MUST 
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SEG 0006 


ENTER A TIME THAT WILL OCCUR A HALF MINUTE OR MORE 

IN THE FUTURE, TO ALLOW ENOUGH TIME TO ENTER THE REQUIRED 
INFORMATION. AFTER THE INFORMATION HAS BEEN ENTERED, THE 
USER MONITORS THE TIME STANDARD. WHEN THAT STANDARD REACHES 
THE TIME ENTERED VIA THE KEYBOARD, THE USER HITS THE 

CARRAGE RETURN (CR) KEY TO START THE CLOCK. 

NOTE THAT THE CHARACTERS WILL NOT BE PRINTED 

OUT AS THE TIME IS BEING ENTERED. 


READING THE TIME 


TO PRINT THE TIME, DEPRESS THE CTRL KEY. WHILE HOLDING 

THE CTRL KEY DOWN, SMARTLY TAP THE T KEY. THE TIME WHICH 
CORRESPONDS TO THE INSTANT THAT THE T KEY WAS DOWN, WILL 

BE PRINTED OUT. THE FORMAT OF THE PRINTOUT WILL BE SIMULAR 
TO THAT SHOWN IN THE 24 HOUR TIME EXAMPLE. THE 

ONLY DIFFERENCE WILL BE THE ABSENCE OF SPACES. 


TIME REFERENCES 


SINCE THE SYSTEM CLOCK IS MORE ACCURATE THAN MANY WRIST 

WATCHES, IT IS A GOOD IDEA TO USE AN ACCURATE TIME STANDARD. 

MANY TELEPHONE COMPANIES PROVIDE A NUMBER WHERE 

THE TIME, SYNCHRONIZED TO THE NATIONAL BUREAU OF STANDARDS 

RADIO STATION (WWV), IS AVAILABLE. CONSULT WITH YOUR LOCAL 
TELEPHONE COMPANY TO SEE IF THIS SERVICE IS AVAILABLE IN YOUR AREA. 


PROCEDURE FOR SINGLE CLOCK REAL TIME TEST. 


1. PERFORM THE BASIC TEST, PRIOR TO THE PERFORMANCE OF 
THIS TEST. PROCEED ONLY IF THE BASIC TEST HAS PASSED. 


2. LOAD ADDRESS 214 VIA THE SWITCH REGISTER, (100KHZ TEST) 
3. PLACE ALL ZEROS IN SWITCH REG., DEPRESS START 


4. EXAMINE YOUR TIME REFERENCE, AND SELECT A TIME THAT 
ciikaae YOU ENOUGH TIME TO ENTER THE TIME VIA THE 


5. ENTER THe TIME, AS DESCRIBED PREVIOUSLY. 


6. START THE CLOCK (HIT THE CR KEY) AT THE INSTANT THE 
TIME REFERENCE CORRELATES WITH THE TIME ENTERED. 


7. MONITOR YOUR TIME REFERENCE, EXACTLY 1 MINUTE 
FROM THE TIME YOU STARTED THE CLOCK, READ THE PROGRAM 
CLOCK AS DESCRIBED PREVIOUSLY. 


8. THE ONE MINUTE TIME ERROR SHOULD BE WITHIN ONE SECOND 
OF THE ACTUAL TIME. 


9. IF THE RESULT OF STEP 8 IS NOT WITHIN ONE SECOND, 
ALLOW EXACTLY ONE MORE MINUTE TO PASS (FROM THE ORIGINAL 
START TIME). READ THE TIME AGAIN. IF THE TOTAL ERROR 
DOUBLED, THE BOARD IS DEFECTIVE. IF THE ERROR IS CONSTANT, 
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334 RESTART THE TEST. 
336 10.* IF THE ONE MINUTE TEST WAS PASSED, ALLOW THE TEST TO 
337 RUN FOR EXACTLY 16 MINUTES MORE. AT THE EXACT END OF THE 
338 16TH MINUTE INTERVAL, READ THE CLOCK. IT SHOULD 
339 BE WITHIN THREE SECONDS OF THE CORRECT TIME. IF IT IS NOT. 
340 THE BOARD IS DEFECTIVE. IN THE EVENT THAT THE DUAL CLOCK 
341 REAL TIME TEST IS GOING TO BE PERFORMED, THIS STEP 
342 CAN BE OMITTED. | 
344 11. LOAD ADDRESS 220 VIA SWITCH REGISTER, 
345 DEPRESS START (10KHZ TEST) 
346 REPEAT STEPS 3-10 
348 12. LOAD ADDRESS 224 VIA SWITCH REGISTER, 
349 DEPRESS START (224 IF 60HZ, OR 230 IF SOWZ LINE TEST) 
350 REPEAT STEPS 3-10 
3 
353 * THE DURATION OF THIS TEST IS ARBITRARY, IT IS NOMINALLY 
354 A THOUSAND SECOND TEST. LONGER TESTS ARE PERMISSIBLE. 
355 THE RESULTS OF LONG TERM TESTS SHOULD BE WITHIN (PLUS OR MINUS) 
356 1 MINUTE FOR A 24 HR TEST. 
358 NOTE THAT THE TIME CAN BE READ AT ANY POINT WITHIN 
359 THE TEST WITHOUT AFFECTING THE TEST. 
361 
362 9.3.2 DUAL CLOCK REAL TIME CLOCK TEST 
364 THE USE OF A TEMPORARY CLOCK (REFERED AS COW) REDUCES THE TIME 
365 REQUIRED FOR THE REAL TIME TEST. THE SECOND CLOCK INTERRUPTS 
366 THE FIRST CLOCK EVERY FIVE SECONDS. THE DURATION OF THE COMBINED 
367 REAL TIMES TESTS, WHEN THE DUAL CLOCK TEST IS USED IS 
368 1 MIN : 50 SEC/FREQ VERSUS 17 MIN/FREQ FOR THE 
369 SINGLE CLOCK REAL TIME TEST ALONE. 
371 THE DUAL CLOCK TEST REQUIRES THAT THE CLOCK BE STARTED AS IN 
372 ? THE SINGLE MODE. RAISING SWITCH#2 CAUSES THE PRINTOUT 
373 TO OCCUR AUTOMATICALLY. : 
375 THE COW MODULE SHOULD ONLY BE INSTALLED IN THE SYSTEM WHILE 
376 THIS DIAGNOSTIC IS BEING USED. 
378 
La TO CONVERT A STANDARD P CLOCK TO A "'COW'’ MODULE: 
331 1. REMOVE JUMPER A4 
382 CSR=772560 
383 CSB=772562 
384 CTR=772564 
385 
386 2. ADD JUMPER VB 
387 VECTOR LOCATION IS 504 
388 PSwW " * 506 
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390 NOTE: THIS VECTOR IS IN FLOATING VECTOR SPACE,CAUTION IS ADVICED 
391 WITH RESPECT TO ALLOWING VECTOR CONFLICTS. 
393 
he 9.3.2.1 PROCEDURE FOR DUAL CLOCK REAL TIME CLOCK TEST 
397 1. LOAD ADDRESS 214, DEPRESS START (100KHZ TEST) 
399 2. ENTER THE TIME VIA THE TTY KEYBOARD AS DESCRIBED PREVIOUSLY 
400 3. SET THE SWITCHES IN THE SWITCH REGISTER TO 000004, 
py 4 THE TTY WILL PRINT THE TIME AT 5 SECOND INTERVALS 
403 4. CONSECUTIVE PRINTOUTS WILL BE WITHIN 5.00 PLUS OR 
404 MINUS .01 SECONDS OF EACH OTHER. ALLOW THE TEST TO 
405 RUN FOR AT LEAST TEN PRINTOUTS. IF THE TOLERANCE IS 
om EXCEEDED, THE CLOCK IS DEFECTIVE. 
ons 5. LOAD ADDRESS 220, DEPRESS START (10KHZ TEST) 
ate 6. REPEAT STEPS 2-4 
rie 7. LOAD ADDRESS 224, IF 60HZ. OR 230 IF SOHZ DEPRESS START (LINE TEST) 
rhe 8. REPEAT STEPS 2 & 3 
416 9. CONSECUTIVE PRINTOUTS WILL BE WITHIN 5.00 PLUS OR 
417 MINUS .04 SECONDS OF EACH OTHER. TYPICALLY, AND 
418 3.00 PLUS OR MINUS .2 SECONDS WORST CASE, DUE 
419 TO POSSIBLE AC LINE FREQUENCY VARIATIONS. ALLOW THE 
420 TEST TO RUN FOR AT LEAST TEN PRINTOUTS. IF THE TOLERANCE 
me IS EXCEEDED, THE CLOCK IS DEFECTIVE. 
423 10. THIS KW11-P DIAGNOSTIC WILL GO OUT & FIND IF THIS SHOULD 
424 RUN WITH CPU THAT HAS A SWITCH REG. OR WILL RUN WITH A PDP-11/04 
425 THAT HAS NO SWITCH REGISTER. IF CPU HAS NO SWITCH REG. 
426 LOCATION 176 EQUALS SOFTWARE SWITCH REGISTER. IN THE ABOVE TEST 
427 TYPING G(CONTROL~G) WILL ALLOW YOU TO ENTER/ALTER THE SOFTWARE SWITCH SETTINGS 


428 - ENDR 


CZKWBJO — P RT CLK TST 


CZKWBJ.P 


000030 


000036 
000046 


000200 
000204 


000224 
000230 


001000 
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000000 
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140000 
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TITLE CZKWBUO KW11-P RT CLK TST 
-SBTTL BASIC TEST 
SCOPYRIGHT 1971. 1978 DIGITAL EQUIPMENT CORP.. 
“JOHN RODENHISER/JIM LACEY 

-ENABL AMA, ABS 
: TRAP CATCHER 0-200 


PRINT 
3 


MAYNARD, MASS. 01754 


LOGICAL 

HLT=EMT 

CC=177776 

NOP=240 

SCOPE=TRAP 

sSOFTWARE SWITCH REGISTER 


START BASIC TEST 

sRESTART BASIC TEST 

START TIMING TEST 

;DOUBLE OR SINGAL CLK TEST. 
;DOUBLE OR SINGLE CLK TEST. 


100KHZ. 
10KHZ. 


JMP a#H602 ;DOUBLE OR SINGLE CLK TEST. 60H7. 
JMP a#H502 ;DOUBLE OR SINGLE CLK TEST. S0HZ 
.=1000 
cSR: 172540 ;CONTROL AND STATUS REGISTER 
CSB: 172542 ;COUNT SET BUFFER 
CTR: 172544 ; COUNTER 
CKV: 104 ;CLOCK VECTOR ADDRESS 
CKVS: 106 
TDBR: 177566 
TCSR: 177564 
TEMP1: 0O 
EMP: 0 
ICOUNT: 1 
DEL1: -49 
DEL2: +=-50 
DEL3:  =-20000 
DEL4 -20000 
ADJ -100 :DELAY ADJUSTMENT FOR 11/70 
; &@ 11745 WITH MOS MEM, 
-120 ; 
~40000 ; 
-40000 ; 
SR: 177570 
BEGIN2: MOV #BUFF ,%6 


SEQ 0009 
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001052 


001144 
001150 


001224 
001230 
001232 
001236 


001244 
001250 


001254 


001332 
001334 


001360 


023737 


012702 
004737 


012706 


000137 
022626 
012637 
012737 


005037 
000137 


013746 


000750 
012637 


012737 


000042 
006436 


006266 


000776 
011652 
011610 
005572 
005442 
001020 
006250 
001016 
001254 
005764 
001254 


000004 


001150 


000004 
001312 
100377 


100377 


000004 
040000 


000004 


177777 
177426 


177777 


MACY11 30A(1052) 
BA 


000046 


000004 


006252 
001022 


000024 


006264 


001022 


000004 
177504 


177474 


177516 


177432 


001020 
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CMP a#rde, a#46 ;UNDER ACT ? 
BEQ 1$ ;YES-SKIP TITLE PRINT OUT 
MOV #MSG3, %2 
JSR ie TOP :PRINT TITLE 
1$: JSR %7,SWADJ sHAS THIS CPU HAVE A SWITCH REG.? 
JSR %7,DELADJ ;1S ADJUSTMENT IN DELAY REQUIRED 
MOV a#4 ,-(%6) 
MOV #XOR ,a#4 
TST a#177060 
MOV (26)+,a#4 
MOV #-1,a#XORFLG 
MOV #1,a#I1 COUNT 
MOV #XORM,%2 
JSR <7, TOP 
BEGIN: MOV #BUFF ,26 ;SET UP STACK FOR SCOPE LOOPS 
JSR %7,SWADJ HAS THIS CPU HAVE A SWITCH REG.? 
JSR %7,DELADJ :1S ADJUSTMENT IN DELAY REQUIRED 
MOV #PWRF1,24 ; INIT POWER FAIL POINTER 
CLR aPsw :CLEAR PROC. STATUS REG. 
CLR TEMP 
CLR SCOPEF ; INIT. SCOPEF TAG 
CLR TEMP1 
MOV #T0, RETURN ;SET UP RESTART OF PROGRAM 
CLR PRINT1 ; INITIALIZE ERROK PRINTOUT READING 
JMP TO 
XOR: CMP (26)+, (26)+ 
MOV (26)+ a4 
MOV #5,a#I1 COUNT 
CLR @#XORFLG 
JMP @*BEGIN 
: TEST INIT TO CLEAR CONTROL AND STATUS REGISTER 
MOV #CSRT 284 
MOV #100377,aCSR 
RESET 
BIT #100377 ,aCSR 
BEQ T1 
ae és sERROR, INIT FAILED TO CLEAR ALL BITS OF CSR. 
CSRT: CMP (26) +, (%6)+ 
MOV (26)+,a#4 
BIT #40000,aSR 
BNE TO 
HALT ;NO SSYN FROM DEVICE 
BR TO 
TEST COUNT SET BUFFER 
MOV (76)+,a#4 
SCOPE 
MOV #-1,aCSB 
TST acsB 
BEQ +4 
HLT sERR, FAILED TO GIVE ZERO'S FROM WRITE ONLY REG. 
MOV #-1,a¢TEMP 
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001406 


001440 


001442 
001444 
001450 
001456 
001464 
001470 
001472 
001500 
001502 


001504 
001506 
001512 
001520 


001526 


00 
001570 
001572 


001654 


012777 


104000 


005037 


001365 
104400 


104000 
104400 


013737 
012777 


104000 


104400 
012777 
000005 
005777 
001401 
104000 


104400 


104000 
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000000 
001020 


001020 
001020 
001020 


001020 


177330 


001020 
177777 


177266 
177777 
001030 
177736 
177240 
000000 
177226 
001020 


177777 


177777 
177174 


000002 
000002 


000004 
000004 
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MOV #0,aCTR 
CMP —" 
BEQ +4 
HLT CTR CHANGED WHEN WRITTEN TO 
; TEST COUNT SET BUFFER TO ACCEPT A COUNT PATTERN 
TEST COUNTER TO CONTAIN COUNT SET BUFFER VALUE 
CLR TEMP 
SCOPE 
T3: MOV TEMP ,aCSB 
CMP TEMP ,aCTR 
BEQ +4 
HLT ;ERROR, CTR NOT=TEMP 
INC TEMP :+1 TO COUNT PATTERN 
BNE T3 ;REPEAT UNTIL COUNT OVERFLOWS 
;TEST THAT CTR REMAINS CONSTANT IF RUN CLEAR 
T3A: SCOPE 
CLR acsR 
MOV #-1,aCSB 
MOV @#DEL3 av TEMP 
1$: INC av TEMP 
BNE 1$ 
CMP #-1,aCTR 
BEQ ~+4 
HLT > CTR CHANGED AL THOUGH RUN 0 
;TEST THAT CTR REMAINS CONSTANT WHEN CSR IS REF'D 
13B: SCOPE 
CLR acsrR 
MOV #-1,aCS 
MOV SgDELS. aPTENP 
1$: MOV #177736,aCSR 
MOV acsRr,20 
MOV 0.ac 
MOV CSR, 
INC TEMP 
BNE 1$ 
CMP #-1,aCTR 
BEQ +4 
HLT ;CTR CHANGED BY CSR REF 
;TEST INIT TO CLEAR COUNT SET BUFFER WHEN IT IS =-1 
T4: SCOPE 
MOV #-1,aCSB 
RESET 
TST ag 
+ 
HLT sERROR, INIT FAILED TO CLEAR CSB 
+ vache ga tec (BIT,2) MAY BE SET AND CLEARED 
MOV #2,aCSR 
CMP #2,aCSR 
BEQ +4 
HLT sERROR, CSR NOT = 2 
MOV #4 ,aCSR 
CMP #4,aCSR 
BEQ +4 
HLT ERROR, CSR NOT = 4 


SEQ 0011 


CZKWBJO x ie -P RT CLK TST 


CZKWBJ .P 19-APR-78 


001656 


001710 


001712 
001714 
001722 
001730 
001732 
001734 
001740 
001744 
001746 


001750 


002054 
00206 


124 
002132 


012777 
022777 
001401 
104000 
005077 
005777 
001401 
104000 


104400 


104000 


104400 
012777 
022777 
001401 
104000 
005077 
005777 
001401 
104000 


104400 


012777 


09:55 

000006 
000006 
177076 
177072 
000010 
000010 
177040 
177034 
000020 
000020 


177002 
176776 


000340 
000100 
000100 


176736 
176732 


176720 


000001 


176660 


000020 


MACY11 30A(1052) 
BA 


177114 
177106 


177056 
177050 


177020 
177012 


177776 
176754 
176746 


176710 
176700 
176672 


176650 
176640 


M 
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SIC TEST 


1 
PAGE 12 


SEQ 0012 

MOV #6,aCSR 

CMP #6,aCSR 

BEQ +4 

HLT sERROR, CSR NOT = 6 

CLR acsR 

TST acsrR 

BEQ +4 

HLT sERROR, CSR NOT = 0 
TEST a 3) CAN BE SET AND CLEARED 

MOV #10,aCSR 

CMP #10,aCSR 

BEQ +4 

HLT sERROR, CSR NOT = 10 

CLR acSR 

TST aCSR 

BEQ +4 

HLT sERROR, CSR NOT = 0 
;TEST UP/DN (BIT 4) CAN BE SET AND CLEARED 
17: SCOPE 

MOV #20,aCSR 

CMP #20, aCSR 

BEQ +4 

HLT sERROR, CSR NOT = 20 

CLR acsR 

TST acsrR 

BEQ +4 

HLT ERROR, CSR NOT = 0 


ENABLE (BIT 6) CAN BE SET AND CLEARED 


#340,CC :SET PROCESSOR PRIORITY LEVEL 7 
#100,aCSR 
ee 
sERROR, CSR NOT = 100 
acsrR 
acsrR 
+4 
sERROR, CSR NOT = 0 


: TEST RUN (BIT 0) CAN BE SET AND CLEARED. 


T9A: 


acsr 
TEMP 
TEMP ,aCSB sSTART AT ZERO 
#21,aCSR DISABLE INTERRUPT, COUNT UP, SET RUN 
1 eae sCHECK IF ZERO IS STILL SET 
:CSR LOST BIT O AFTER BIT INSTRUCTION 
acsR 
TEMP 
TEMP ,aCcsB :START AT ZERO 
#20,aCSR DISABLE INTERRUPT, COUNT UP, DO NOT SET RUN 


CZKWBJO KW11-P RT CLK T 
CZKWBJ.P11 


002140 


002224 


002226 


002302 


002304 
002306 


002442 


052777 
032777 


104000 


104400 


001362 


104400 


001362 


104400 


001401 
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000001 
000001 


176612 


000001 


176544 
177777 
177776 
000040 
001020 


001020 
001020 


176466 
176464 
000001 
000060 
001020 


001020 
001020 


176412 
000002 
000001 
001024 
176364 


000001 
000001 
176342 


MACY11 30A(1052) 
BA 


176632 
176624 


176602 


176556 


176540 
001020 
176522 
176520 


000000 


001020 
176446 
176444 


000000 


176406 
176376 
001020 
001020 


176344 


N 1 
19-APR-78 09:58 PAGE 13 
SIC TEST SEQ 0013 


BIS #1,aCSR ;SET RUN 

BIT #1,aCSR ;CHECK IF BIT 9 IS SET 

BNE +4 

HLT CSR LOST BIT 0 AFTER A BIS INSTRUCTION 
SCOPE 

CLR acsR 

CLR TEMP 

MOV TEMP ,aCSB START AT ZERO 

MOV #21,aCSR DISABLE INTERRUPT, COUNT UP, SET RUN 
MOV #20,aCSR ;LEAVE ALL SAME RESET RUN 


BIT #1,aCSR ;CHECK BIT 0 
° ;BRANCH IF NOT SET 
;CSR PICKED BIT 0 ON A MOV. 


: TEST FIX (BIT 5) TO SINGLE CLOCK COUNTER 
we Ay ct atl 4) =0 TO ENABLE COUNT DOWN 


SCO 
CLR acsrR 
MOV #-1,aCSB 
MOV #-2, TEMP 
TIOA: MOV #40,aCSR 

CMP TEMP aCTR 
BEQ +4 
HLT sERROR, COUNTER NOT = TEMP, DIDN‘T COUNT DOWN 
DEC TEMP :~1 TO PATTERN COUNT 
CMP TEMP, #0 DONE ALL COUNTS? 
BNE TIOA NN 

;TEST FIX (BIT 5) TO SINGLE CLOCK COUNTER 

SET UP/DN (BIT 4)=1 TO ENABLE COUNT UP 

T11: SCOPE 
CLR acsr 
CLR acsB 
MOV #1, TEMP 

TI1A: MOV #60,aCSR 
CMP TEMP ,aCTR 
BEQ +4 
HLT ERROR, COUNTER NOT = TEMP, FAILED TO COUNT UP. 
INC TEMP +1 TO PATTERN COUNT 
ead TEMP , #0 ; DONE ati COUNTS ? 


BNE TIIA :NO 
: TEST CLOCK TO COUNT DOWN AT ALL FREQUENCIES 
100KHZ 


CLR acsRr 

MOV #2,aCSB :COUNT SET BUFFER TO 2 

MOV #1,aCSR DOWN COUNT , 100KHZ, GO 

MOV @*#DEL1 ,a#TEMP 
T12A:  TSTB acsr 

BAI 7128 

ADD #1 ,aaTEMP 

BNE T12A 

BIC #1,aCSR 

HLT ;ERROR, P INTR (BIT 7) NOT = 1. 
T12B: TST acTR 

BEQ +4 


CZKW 


KWBJ .P 


002444 


002446 


002532 
002534 


002626 
002630 


002722 
002724 


002726 
002730 


CZKWBJO iii RT CLK T 
11 19-APR-78 09: 55 


104000 


104400 


001401 
104000 


104400 


104000 
104400 


104000 


104400 
005077 


176324 


176276 
000001 
000001 
176254 


006252 
176230 
000002 
000005 
001030 
176202 
000001 
000001 


176160 


000001 
176132 


176104 
000001 
000001 
176062 


176044 


MACY11 30A(1052) 
BA 


176320 
176310 
001020 
001020 


176256 


176224 
176214 
001020 
001020 


176162 


176204 


176126 
176116 
001020 
001020 


176064 


TI3A: 


TI4A: 


T14B: 


H 
sEXT FREQ 
T15: 


T15A: 


OPE 


SCOPE 
CLR 


B 
19-APR-78 09:58 
SIC TEST 


acsR 
#2,aCSB 


#3 


1138 
#1,a#TEMP 
T13A 
#1,aCSR 


acTR 
+4 


@#XORFLG 
T15 


acsR 


#2,aCSB 


2 
PAGE 


,@CSR 
Q*#DEL2,a# TEMP 
acsR 


#5,aCSR 
@#DEL3 ae TEMP 
acsr 


T14B 

#1 ,aaTEMP 
TIGA 
#1,aCSR 


acTrR 
+4 


#1,aSR 
T16 
@csSR 


#2,aCSB 
#7,aCSR 
ee 


acs 


7158 
#1,a#TEMP 
TI5A 
#1,aCSR 


acTR 
+4 


aCsR 


14 


;DOWN COUNT, 


ERROR, COUNTER DID NOT COUNT DOWN TO 0 


10KHZ, GO 


ERROR, P INTR (BIT 7) NOT = 1. 


ERROR, COUNTER DID NOT COUNTDOWN TO 0 


sDOWN COUNT, LINE FREQ., GO 


sERROR, P INTR (BIT 7) NOT=1 


sERROR, COUNTER DID NOT COUNT DOWN TO 0 


;DOWN COUNT, EXT.. GO 


sERROR, P INTR (BIT 7) NOT=1 


ERROR, COUNTER DID NOT COUNT DOWN TO 0 
ST wae TO COUNT UP AT ALL FREQUENCIES 


SEQ 0014 


CZKWBJO KW11-P RT CLK T 
CZKWBJ.P11 


002734 


003012 
003014 


003100 
003102 


003174 


003176 


003244 


012777 


104000 
Le 


104000 


104400 
005737 


001401 
104000 


104400 
032777 


062737 
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177776 


176016 
000001 
000001 
175774 


175756 
177776 
000023 
001026 
175730 
000001 
000001 


175706 


006252 
177976 
175634 
000001 
000001 
175612 


000001 


175564 
177776 
000027 
001032 
175536 


000001 


MACY11 30A(1052) 
BA 


176040 
176030 
001020 
001020 


175776 


175752 
175742 
001020 
001020 


175710 


175656 
175646 
007020 


001020 
175614 


175636 


175560 
175550 
001020 


001020 


T16A: TSTB 
B 


M 
TI7A: TSTB 


T18A: TST8 


MO 
TIDA: TSTB 


Cc @ 
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SIC TEST 


#-2,aCSB 


#21,a 


-@CSR 
Q#DEL1,a#TEMP 
acsR 
T16B 
#1 ,a#TEMP 
T16A 
#1,aCSR 


avDEL2,a#TEMP 
acsr 


1178 


#1,aaTEMP 
TI7A 
#1,aCSR 


acTR 
+4 


@#XORFLG 
T19 


acsr 


#-2,aCSB 


#25 


7188 

#1, aeTEMP 
TIBA 
#1,aCSR 


actR 


#1,aSR 
T20 
acsR 


#-2,aCSB 


#27 


119 


;UP COUNT, 


;UP COUNT, 


,@CSR 
@FDEL3 as TEMP 
acsr 


,@CSR 
@#DEL4 ,a#TEMP 
acsrR 


B 
#1, Qe TEMP 


SEQ 0015 


100 KHZ, GO 


; ERROR 


; ERROR 


10 KHZ, GO 


: ERROR 


; ERROR 


UP COUNT, LINE, GO 


; ERROR 


; ERROR 


;UP COUNT, EXT FREQ, GO 


CZKWBJO KW11-P RT CLK TST 
WBJ.P11 


CZK 


003252 


003274 
003276 


003430 


003574 


001371 


104000 


104400 
012737 
005077 
005077 
012777 
012777 
012777 
013737 
005237 
001375 
042777 


012706 
104400 


005077 
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000001 


175512 


000200 


001020 
000001 


175406 
001020 


000001 


175356 
000776 


000240 


001024 


001020 


000001 


175262 
000776 


000300 


001026 
175200 


MACY11 30A(1052) 


175516 


177776 


175456 


001020 


175416 


001020 


001020 


177776 
175342 


175324 
175314 
001020 


175272 


177776 
175246 


175230 
175220 
001020 


T19B: 


D2 
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BASIC TEST 

BNE TI9A 

BIC #1,aCSR 

HLT ; ERROR, 
RESET 

TST acTR 

BEQ +4 


HLT ; ERROR, 
oe ee OCCURS TO PROPER VECTOR WITH PROCESSOR PRIORITY 4 


18: 


T20A: 


;SET PROCESSOR PRIORITY 4 
;CLEAR INTERRUPT RETURN STATUS 


MOV #2,a org 
;SET UP INTERRUPT RETURN VECTOR 
ENABLE INTERRUPT 


INC a 

BNE 1$ 

BIC #1,aCSR 

~¥ 13 ERROR, INTERRUP, FAILED TO OCCUR. 
MOV @CSR,a#TEMP 

TSTB a*TEMP 

BMI ~ +4 

HLT >DONE NOT SET ON INT. 
BIT #1 ,aaTEMP 

BEQ +4 

HLT RUN NOT CLEARED 

CLR acsr 


MOV #BUFF 26 
sTEST THAT INTERRUPT OCCURS WITH PROCESSOR PRIORITY 5 
T21: SCOPE 


1$: 


T21A: 


MOV #260,CC :SET PROCESSOR PRIORITY 5 

nov ssn acy :SET UP INTERRUPT RETURN STATUS 
MOV acse 

MOV Fibl ieee sENABLE INTERRUPT 

MOV SADEL 1 asTERP 

INC aaTEMP 

BNE 1$ 

BIC #1,aCSR 

HLT a :ERROR, INTERRUPT FAILED TO OCCUR 
CLR acsr ;RETURN HERE AFTER INTERRUPT 


MOV #BUFF ,%6 
St Sad gear a Is INHIBITED WITH PROCESSOR PRIORITY 6 


1$: 


MOV #300,CC SET PROCESSOR PRIORITY 6 
MOV #T22h aCKv :SET UP INTERRUPT RETURN 


MOV #2,aCSB 

MOV #101,aCSR 

MOV @#DEL1 ae TEMP 
aa TEMP 


BNE 1$ 
CLR acsrR 


; INTERRUPT ENABLE 


SEQ 0016 


CZKW 


CZKWBJO KW11-P R7 CLK T 
KWBJ.P11 


003600 


003612 


003616 


003706 
003712 


004002 
004004 


004010 


004056 


000406 
042777 
104000 
012706 


104400 


012706 


104400 
012737 
012777 
012777 
012777 
013737 
062737 
001374 
042777 
104000 
000406 
022626 
005237 
001360 
005077 


104400 


610037 
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000001 
000776 


000200 


000001 
600001 
175072 
000776 


177700 
003774 


000001 
000001 


001016 
174770 


0009020 


004264 
010000 
000001 
174734 
010000 


001020 


MACY11 30A(1052) 


175170 


177776 
175142 
175140 
175124 
001020 
001020 


175100 


001016 


061020 
175010 


175022 


174744 
174734 


' g 
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BASIC TEST SEQ 0017 
BR T23 
T22A: BIC #1,aCSR 
HLT ;ERROR, INT SHOULDN'T HAVE OCCURRED 
MOV #BUFF ,%6 
:TEST SINGLE INTERRUPT (MODE 0) ON OVERFLOW 
T23: SCOPE 
MOV #200,CC ;SET PROCESSOR PRIORITY 4 
CLR acsrR 
MOV #-2,aCSB 
MOV #T235A,aCkV ;SET INTERRUPT RETURN 
MOV #121,aCSR ; INTERRUPT ENABLE, UP COUNT, 100 KHZ. GO 
MOV @#DEL1,a#TEMP 
T23AA: ADD #1,a#TEMP ;WASTE TIME 
BNE T23AA 
BIC #1,aCSR 
HLT sERROR, INTERRUPT FAILED TO OCCUR. 
T23A: CLR acsr ;RETURN HERE AFTER INTERRUPT. 
MOV #BUFF ,2%6 sRESET STACK 
:TEST REPEATED INTERRUPT (MODE 1). 
T24: SCOPE 
MOV #-100, TEMP1 :;SET UP COUNTER FOR INTER 
MOV th ye Ty :SET INTERRUPT RETURN 
MOV #10,acsB :SET UP COUNT SET BUFFER 
MOV #111,aCSR : INTERRUPT ENABLE, REPEATED INTERRUPTS, 100 KHZ, 
T24A: MOV afDEL1 a#TEMP 
ADD #1,aa@TEMP 
BNE ~6 
BIC #1,aCSR 
HLT sERROR, INTERRUPT FAILED TO OCCUR 
BR T24C 
T24B: CMP (6)+,(6)+ :POP STACK 
INC TEMP1 : DONE 100 INTERRUPTS? 
BNE T24A NO 
<LR acsr > CLEAR CLOCK 
ga we o~ atlas TEST 
:KW11-P BOARDS THAT 
7ARE REV F OR GREATER 
T24C: SCOPE 
CLR z3 : 
BIT #20,aSR 
BNE 1$ : 
JMP T25 ; 
1$: MOV #10000,aCSB ;LOAD COUNTER 
MOV #1,aCSR :GO COUNT DOWN, 100 KHZ 
MOV acTR,%0 sSAVE CTR 
CMP 20,#10000 :D10 COUNT INCREASE? 
BLOS 2$ :BRANCH IF OK TO 1$ 
MOV 20,a¢TEMP : 


CZKWBJO KW11-P RT CLK TST 
CZKWBJ.P11 


004962 


004074 


004076 


004144 


004152 


004206 


004210 


004234 


004240 
004240 
004244 
004244 


004246 
004250 


004254 
004256 


104000 
000404 


3 
001355 


104400 
017746 
012777 
005037 
005037 
012777 
012777 
012777 
012777 


012777 


104000 


005237 
022737 
001353 
012677 
005077 
000137 


005237 
000002 
000000 
105777 


100375 
110077 
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174706 


174702 


000111 


000340 


004246 


006632 
000170 


174556 


174544 
004264 


004246 


174540 
174530 


MACY11 30A(1052) 
BA 


002526 


174656 


174626 


002460 


006632 


2$: 


F 
19=APR-78 09:58 
SIc TEST 


Sg ae og a TEST 
2 FOR KW11- 


NO. 
“BOARDS THAT ARE. 


sREV F OR GREATER 


T24D: 


LOOP: 


1$: 


CLKSER: 
CLKXIT: 


TIKTIK: 


TYPE: 


SCOPE 
M 


ackv,-(%6) 
#340,aPSw 
TIKTIK 


CNT 

#CLKSER ,@CKV 
#300 ,ackvs 
#10,aCSB 
#111,aCSR 


#340 ,aPSwW 


aPSw 
TIKTIK,R1 

, TYPE 
TIKTIK,R} 
1$ 


CNT 
ao 


L 
(26)+,aCKV 
acsr 

T25 


TIKTIK 


aTCSR 
TYPE 
RO,@TDBR 


2 
PAGE 18 


SYNC ERROR 
;END TEST 


:CLR CSR 
;NO OF TIMES THROUGH PROGRAM mae < 2(16) 
:2(16) YET, IF NOT GO BACK TO LOOP 1 


;SAVE CLOCK VECTOR 
:PS=7 STOPS ALL INTRS 
;CLEAR CLOCK COUNTER 
;CLEAR ITERATION COUNT 
;SETUP INTR SERVICE RTN 
;SETUP INTR PSW 

:KW11 COUNT = 10 


;SEF TO RUN @100KH 
;INTR ENABLE & COUNT DOWN 
sAND REPEAT INTR MODE 


:PS=7 STOPS ALL INTRS 


>100MS DELAY @PR7 


:PS=0 ALLOWS INTRS 


GET CURRENT CLK COUNT 
:1T00MS DELAY aPRO 
sANY INTRS DURING DELAY? 
:IF YES,GO TO 1$ 

ELSE THERE WAS AN ERROR 


; I.C. 
sLOCATIONS E41 . £S1 ON REV F 
BOARD & GREATER ONLY 


:120 ITERATIONS? 

:I1F NOT,GO BACK TO LOOP 
ELSE RESTORE THE VECTOR 
;CLEAR CONTROL REG 

;AND GO TO NEXT TEST 
INC CLK COUNTER 


ELSE EXIT RIN 


READY TO SEND 
:BR IF NOT 
SEND THEM A MESSAGE 


SEQ 0018 


CZKWBJO KW11-P RT CLK TST 
CZKWBJ.P11 


989 
0 


004264 
004266 


004414 
004416 


004444 
004446 


004500 


004502 


004516 


104400 


000432 


005077 
012777 
012777 
105777 
100375 
000205 


013700 
013701 


000205 


104400 
005077 
012777 
012777 


19-APR-78 09:55 
004262 000207 


000004 
604740 


174446 


174442 


004416 
174404 


174400 
004446 


002154 
001130 
000021 
002134 


001020 
001016 


000005 


001020 


174270 
000000 
000023 


MACY11 30A(1052) 
BA 


174550 


174466 
174456 


001020 


174424 
174414 


001016 


002144 
002140 


174264 
174254 


sTEST 100 KHZ REPEATABILITY 
T25: SCOPE 


3$: 


1$: 


2$: 


DELY: 


1§: 


CACL: 


1$: 


2$: 


TEST 10 KHZ REPEATABILITY 


RTS 


PC 


#4 ,aSR 


acTR,a#TEMP 
acsR 


#0,aCSB 
#21,aCSR 
R5, DELY 


acsrR 
2$ 


sd 


T25A 


acsRi 
#1130,acsB1 
#21,aCsRi 


acsri 
1$ 
R5 
asTEMP 


R1 
#5,R1 
2$ 
(R5)+ 


R1, TEMP 
R5 


aCTR,@#TEMP1 
R5,CACL 


RO 
as TEMP RI 
RO,R1 


G 2 
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SIC TEST 


sARE TWO CLK'S PRESENT 
sBRANCH IF SW#2 IS UP 
sEXIT IF ONLY ONE CLK 
;SET CTR 

;COUNT UP 100KHZ GO 

:GO TO DELAY SUBROUTINE 
; TEST DONE BIT SET 


;DONE BIT SET TOO SOON 
;DONE NOT SET SO SAVE CTR 


sHERE WE ARE SAVING SEC CNT 
GO DETERMINE ACCURACY OF CNT'S 


DELAY SUBROUTINE 


;WAIT 600 MIL. 


> COMPARE CTR1 WITH CTR2 


>DIFFERENCE MUST BE LESS THAN 5 


;UPDATE RETURN 
:DEFRENCE FOR PRINT OUT 


son iene IS THE SAME AS T25 EXCEPT IT IS 


T25A: 


MOV 


Ad. 


acsB 
18" aCSR 


SEQ 0019 


CZKWBJO KW11-P RT CLK T 
CZKWBJ P11 


004524 


004614 


004616 


004732 


005034 


004537 


104000 


104400 


104000 
104400 


100001 
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004416 
174244 


174240 


174262 


174176 
004446 


006252 
174146 
000000 
000025 


004416 
174122 


174116 
174104 


174060 


174054 
004446 


174032 


000001 
173766 
000001 


173750 
173744 


MACY11 30A(1052) 
BA 


001020 


174222 
174212 


001016 


142 
132 


—_ — 
SN 
~~ 


001020 


174100 
174070 


001016 


177776 
174020 
174010 
001020 
001020 


173756 


H 
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Sit TEs! 
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SEQ 0020 
JSR R5,DELY 
TSTB = CSR 
BPL 1$ 
HLT 
1$: MOV acTR,a#TEMP 
CLR acsR 
MOV #0 acsB 
MOV #23,aCSR 
JSR R5, DEL 
TSTB. = aC SR 
BPL 2% 
HLT 
2$: MOV acTR, a#TEMPt 
JSR RS, CACL 
HLT 
: TEST LINE REPEATABILITY 
:THIS TEST IS THE SAME AS T25 EXCEPT IT IS 
FOR LINE FREQ 
126: SCOPE 
TST a#XORFLG 
BMI 127 
CLR acsr 
MOV #0,aCSB 
MOV #25,aCSR 
JSR RS,DELY 
TSTB = @C SR 
BPL 1$ 
HLT 
1$: MOV aCTR, a#TEMP 
CLR acsr 
MOV #0,acsB 
OV #25,aCsR 
JSR R5,DELY 
in: ah 
BPL 2$ 
HLT 
2$: MOV aCTR, as TEMP) 
sR RS, CACL 
; TEST ERROR (BIT 15) TO SET WHEN INTERRUPT IS NOT SERVICED IN REPEAT MODE 
127: SCOPE 
CLR acsr 
MOV #340,CC :SET PROCESSOR PRIORITY 7 
HOV 2,acSB >SET COUNTER FOR FAST INTERRUPTS 
MOV #111, aCSR ;INT EN, REPEATED INT, DOWN COUNT, 100 KHZ. GO 
MOV asDEL1, a#TEMP 
ADD #1, aeTEMP 
BNE -6 
TST acs 
BMI 1$ 
BIC #1,aCSR 
HLT sERROR, ERROR (BIT 15) NOT SET 
1$: CLR acsR 
TST acsR 
BPL +4 


CZKWBJO KW11-P RT CLK T 
CZKWBJ.P11 


02 


wut wt wt it OOOoCoco 


AIA 90 P0 Po PO RI PO PO PRO PD ee es es 
AM OVWVBNAUNESWN OO MONAUESWNHHODDANRAR 


WA 
WP 


005036 
005040 


005132 


005134 


005204 


104000 


104400 
012737 
012777 
012777 
013737 


104400 


012777 
105777 


000137 
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000340 
000002 
000111 
001024 
000001 
173672 


000001 


173652 


000207 
173646 


000000 
173632 


000042 


001150 


MACY11 30A(1052) 
BA 


177776 


001020 


173662 


173650 


173634 


HLT 
:TEST BIT 15 IS CLEARED BY INIT 
T27A: SCOPE 


I 2 
19=APR-78 09:58 PAGE 21 
SIC TEST 


MOV #111 -aCSR 
MOV a#DEL1, avTEMP 
ADD — EMP 


BNE 
TST acsrR 
BMI 1$ 
BIC #1,aCSR 
HLT ;BIT 15 NOT SET 
1$: RESET 
TST acsr 
BPL +4 
HLT ;BIT 15 NOT CLEARED BY RESET 
SCOPE 
:BELL ON PASS COMPLETE 
TSTEND: MOV #207, aTDBR 
TSTB TCSR 
BPL -- 
MOV #0,aTDBR ;SEND A NULL CHAR. 
TSTB ere ag 
BPL 
MOV spe, x2 
BEQ TRPA 
RESET 
LOGICAL: JSR %7,(2) 
NOP 
NOP 
NOP 
TRPA: JMP BEGIN 


sERR, FAILED TO CLEAR WHEN REF. 


SEQ 0021 


J 2 
CZKWBJO KW11-P RT CLK TST MACY11 30A(1052) 19-APR-78 09:58 PAGE 22 
CZKWBJ .P1i 19-APR-78 09:55 BASIC TEST SEQ 0922 
1135 
1136 .SBTTL TIMING TEST 
1137 sRING TELETYPE BELL AT 10 SECOND INTERVALS USING REPEATED INTERRUPT MODE 
1138 21ST MINUTE = 100 KHZ 
1139 :2ND MINUTE = 10 KHZ 
1146 :3RD MINUTE = LINE 
sles 24TH MINUTE = EXTERNAL 
1143 005219 012706 000776 BEGIN1: MOV #BUFF ,%6 
1144 005214 004737 011652 JSR 27,SWADJ ;HAS THIS CPU HAVE A SWITCH REG.? 
1145 005220 013777 001010 173560 MOV CKVS ,acKkVv 
1146 005226 012777 000002 173554 MOV #RTI,aCKVS 
1147 005234 012737 005602 000024 MOV #PWRF2,24 s INIT POWER FAIL POINTER 
1148 005242 000005 RESET 
1149 2100 KHZ 
1150 005244 012777 141520 173530 MOV #50000. ,aCSB : INIT COUNT SET BUFFER FOR .5 SECONDS 
1151 005252 012700 177772 MOV #-6,20 ;COUNT 6(10 SECOND) INTFRVALS 
1152 005256 012701 177754 T28: MOV #-20.,%1 ;COUNT 20(.5 SECOND) INTERVALS 
1153 005262 012777 000111 173510 MOV #111,aCSR 100 KHZ, REPEATED INTERRUPTS, INTERRUPT ENABLE. GO 
1154 005270 000001 T28A: WAIT 
1155 005272 005201 INC x1 ;DONE 10 SECONDS? 
1156 005274 001375 BNE T28A NO 
1157 005276 105777 173512 TSTB aTcsR 
1158 005302 100375 BPL 74 
1159 005304 012777 000207 173500 MOV #207 .,aTDBR 
1160 005312 005200 INC x0 ;DONE 6 TIMES? 
1161 005314 001360 BNE T28 3N 
Hh 005316 042777 000101 173454 co kee BIC #101,aCSR >YES DISABLE INTERRUPTS 
. K 
1164 005324 012777 011610 173450 MOV #5000. ,acsB : INIT COUNT SET BUFFER FOR .5 SECONDS 
1165 005332 012700 177772 MOV #-6,%0 sCOUNT 6(10SECOND) JNTERVALS 
1166 005336 012701 177754 T29: MOV #-20.,%1 sCOUNT 20(.5 SECOND) INTERVALS 
1167 005342 012777 000113 173430 MOV #113,aCSR :10 KHZ, REPEATED INTERRUPTS, INTERRUPT ENABLE. GO 
1168 005350 000001 T29A: WAIT 
1169 005352 005201 INC z1 7DONE 10 SECONDS? 
1170 005354 001375 BNE T29A 3NO 
1171 005356 105777 173432 TSTB @TcsrR :YES, RING BELL 
1172 005362 100375 BPL 74 
1173 005364 012777 000207 173420 MOV #207 ,aTDBR 
1174 005372 005200 INC z0 ;DONE 6 TIMES? 
1175 005374 001360 BNE T29 $ 
1176 005376 042777 000101 173374 BIC #101,aCSR sYES, DISABLE INTERRUPTS 
1177 >SET UP FOR 10 SECONDS AT LINE FREQ. 
1178 005404 005737 006252 TST @#XORFLG 
1179 005410 100677 BAI BEGIN1 
1180 005412 012737 001130 005570 MOV #600. ,LINE 
1181 005420 032777 000002 173416 BIT #2,aSR 
1182 005426 001403 BEQ +10 
Bs 005430 012737 000764 005570 ee MOV #500. ,LINE 
ut 
1185 005436 013777 005570 173336 MOV LINE ,a@CSB ; INITIALZE COUNT SET BUFFER FOR 10 SECONDS 
1186 005444 012700 177772 MOV -6,20 :COUNT 6 (10 SECOND) INTERVALS 
1187 005450 012777 000115 173322 MOV #115, acsr ;LINE, REPEATED INTERRUPTS, INTERRUPT ENABLE, GO 
1188 005456 000001 130: WAIT 
1789 005460 105777 173330 TSTB aTCSR 
1190 005464 100375 BPL 274 


CZKWBJO KW11-P RT CLK TST 
CZKWBJ.P11 


Me 4 oo 
0 
ao 


005466 


005514 
005516 


005570 


012777 


001655 
013777 


001130 


19-APR-78 09:55 


000207 


000101 
000001 


005570 
177772 
000117 
173250 


000207 


000100 


MACY11 30A(1052) 


173316 


173272 
173330 


173256 


173242 


173236 


173212 


T31: 


LINE: 


K 2 
19=APR-78 09:58 PAGE 23 


TIMING TEST 


SEQ 0023 
#207,aTDBR ;RING BELL 
x0 ;DONE 6 TIMES 
T30 :NO 
#101,aCSR ;YES--DISABLE INTERRUPTS 
#1,aSR ; 
BEGIN1 ; 
FOR MAINTENANCE) 
LINE,@CSB ; INITIALZE COUNT SET BUFFER FOR 10 SECONDS 


#-6,%0 ;COUNT 6 (10 SECOND) INTERVALS 


#117, aCSR ;EXT FREQ, REPEATED INTERRUPTS, INTERRUPT ENABLE . GO 
aTCSR 

#207, aTDBR :RING BELL 

40 ;DONE 6 TIMES 

131 -NO 

#100,aCSR :YES, DISABLE INTERRUPTS 

BEGIN1 REPEAT 


CZKWBJO KW11-P RT CLK T 
CZKWBJ.P11 


—_—> 
—_ 2 
© 


MMMM M PNK RD 
WOON AUS wha 


™m 
emt ed td od od od od 


005572 


005642 
06,646 


005650 


36 
006044 


012737 


001150 


037727 
001401 
000002 
012702 
005737 
001402 


000000 
012737 


052737 


19-APR-78 “09: 55 


001150 


005210 
005620 


000776 


006472 
006266 
000000 


173170 
006370 
005764 
006432 
006266 
005764 


000002 


173066 


000060 


000061 
006102 


177773 


006100 
177770 
000060 


MACY11 30A(1052) 


005646 


005646 
000024 


020000 


006100 


006100 


006076 


006100 
006100 


~ SBTTL 


L 2 
19-APR-78 09:58 PAGE 24 
SUBROUTINES 


SUBROUTINES 


:POWER FAIL HANDLERS 
PWRF1: MOV 


PWRF 2: 


PWRDWN: 


PWRUP: 


J 
PWRRTN: BEGIN 


1 ba PWRRTN 
PWROWN 


#BEGINI, PWRRTN 
#PWRUP, 24 


#BUFF ,%6 
x0 

20 

Set 4 
#MSGPWR ,%2 
47, TOP 
@PWRRIN 


sENTERED WITH SYSTEM TRAP CALL (HLT) 


PRIN 


PRINT1: 


ere a STATUS ag lg COMAND REGISTER, BYTE COUNT, CURRENT ADDRESS, 


+4 


#ASG1,2%2 
PRINT1 


+6 
#MSG2 ,%2 
<7, TOP 
PRINT1 
(6) ,%2 
#2 ,%2 
27 ,OCTPRT 
acCSR 22 
27,,OCTPRT 
acTR, 22 
7, OCTPRT 
TEMP, 22 
oF -OCTPRT 
+4 


sPRINT OCTAL le ca i 


OCTPRT: 


OCT1: 


OCT2: 


42, CHAR 
#177770, CHAR 
HAR 


e 


DATA 
TEST FOR INHIBIT PRINT OUT 

:BRANCH TO PRINT 

: INHIBIT, RETURN TO MAIN STREAM 


>PRINT ERROR HEADING 


PRINT PC 
:PRINT STATUS REGISTER 
sPRINT COUNTER 


;PRINT TEMP 
sCHECK SR FOR HALT SWITCH 


>HALT ON ERROR UP 
RETURN TO MAINLINE 


s INITIALIZE 1ST NUMBER AS 0 
21S VALUE POSITIVE 
; PRINT 0 


:NO PRINT 1 
;COUNT 5 DIGITS 


sSAVE DIGIT 
;CLEAR OTHER BITS 
sMAKE ASCII DIGIT 





SEQ 0024 


M 2 
CZKWBJO KW11-P RT CLK TST MACY11 30A(1052) 19-APR-78 09:58 PAGE 25 


CZKWBJ P11 19-APR-78 09:55 SUBROUTINES SEQ 0025 
1266 006052 006002 ROR X2 
1267 006054 004737 006102 JSR %7,0CTP ;PRINT 
1268 006060 006102 ROL Re 
1269 006062 005237 006076 INC OCT :+1 TO DIGIT COUNT 
1270 006066 001356 BNE OCT2 ;NOT DONE 
1271 006070 004737 006120 JSR %7,SP3 
1272 006074 0600207 RTS x7 sEXIT 
1273 006076 000090 OCT: 0 
1274 006100 000000 CHAR: 0 
1275 006102 105777 172706 OCTP:  TSTB aTCSR 
1276 006106 100375 BPL * ;WAIT FOR READY 
1277 006110 013777 006100 172674 MOV CHAR ,@TDBR ;PRINT 
1278 006116 000207 RTS 27 
1279 : TYPE 3 SPACES 
1280 006120 012702 006132 SP3: MOV #SP3A,%2 
1281 006124 004737 006266 JSR %7,TOP 
1282 006130 000207 : RTS z7 
1283 006132 020057 02°. ° SPSA: ASCII 3/ ss 
ake ~EVEN 
1286 006136 022606 SCOPEB: CMP (6)+,%6 REPOSITION THE STACK 
1287 006140 012637 177776 MOV (6)+,CC 
i. 006144 000177 000114 JMP @RETURN >SCOPE RETURN 
1290 SCOPE OR/AND ITERATION LOOP FOR EACH TEST 
1291 006150 032777 040000 172666 SCOPEC: BIT #40000 ,aSR sTEST SR FOR SCOPE 
1292 006156 001367 BNE SCOPEB YES SCOPE 
1293 006160 005737 006252 TST @#XORFLG 
1294 006164 100011 BPL 1$ 
1295 006166 013746 000004 MOV a#4 ,~(26) 
1296 006172 012737 006254 000004 MOV #XORA ,a#4 
1297 006200 005737 177060 TST a#177060 
1298 006204 012637 000004 MOV (26)+ ,a84 sRESTORE STACK 
1299 006210 032777 004000 172626 1$: BIT #4000, aSR ;NO ~ TEST FOR ITERATION 
1300 006216 001007 BNE SCOPEG > INHIBIT ITERATION 
1301 006220 023737 006250 001022 CMP SCOPEF , ICOUNT 
1302 006226 001403 BEQ SCOPEG EXIT - DONE 
1303 006230 005237 006250 INC SCOPEF s INCREMENT COUNT 
1304 006234 000740 BR SCOPEB ; SOME MORE 
1305 006236 005037 006250 SCOPEG: CLR SCOPEF CLEAR COUNT 
1306 006242 011637 006264 MOV @2%6, RETURN sSAVE SCOPE RETURN POINTER 
1307 006246 000002 RTI RETURN INLINE-NEXT TEST 
1308 006250 006000 SCOPEF: 0 COUNT LOCATION FOR INTERATION LOOP 
1309 006252 000000 XORFLG: 0 
1310 006254 022626 XORA: CMP (26)+, (26)+ 
1311 006256 012637 000004 MOV (26) + ,a#4 
1312 006262 000725 BR SCOPEB 
1313 006264 001150 RETURN: BEGIN sADDRESS OF LAST TEST 
1314 sMOV ADDRESS OF MESSAGE TO REGISTER 2 
1315 ; THEN JSR %7,TOP 
1316 006266 142777 000177 172520 Top: BICB #177 ,aTCSR :CLR_ INT FLAG 
1317 006274 112237 006366 MOVB (2)+,EOMK sMOVE IN EOM MARKER 
1318 006300 121237 006366 TOP1:  CMPB a%2,EOMK ; COMPARE FOR EOM 
1319 006304 001001 : BNE +4 :NO . 
1320 006306 000207 RTS 17 :YES, EXIT 
1321 006310 121227 000100 CMPB a%2,#'a 

















N 2 
CZKWBJO KW11-P RT CLK TST MACY11 30A(1052) 19-APR-78 09:58 PAGE 26 


CZKWBJ.P11 19-APR-78 09:55 SUBROUTINES SEQ 0026 
1322 006314 001406 BEQ TOP2 
1323 006316 105777 172472 TSTB aTCSR CK TTY 
1324 006322 100375 BPL Ph ;WAIT FOR DONE 
1325 006324 112277 172462 | MOVB (2)+,aTDBR :MOVE CHARACTER 
1326 006330 000763 BR TOP 1 ;BRANCH BACK 
1327 006332 105777 172456 TOP2: TSTB aTCSR 
1328 006336 100375 BPL 74 
1329 006340 112777 000215 172444 MOVB #215,@TDBR ;SEND CARRIAGE RETURN 
1330 006346 105777 172442 TSTB aTCSR 
1331. 006352 100375 BPL 74 
1332 006354 112777 000212 172430 MOVB #212,aTDBR SEND LINE FEED 
1333 006362 005202 INC %2 ; INCRMIN R2 
1334 006364 000745 BR TOP 1 ;NO EOM, SO LOOP 
1335 006366 000 EOMK: .BYTE 0 
1336 006370 EVEN 


1337 006370 040057 020040 041520 MSG1: ASCII ;:/@ PC STATUS COUNTER TEMPa@/: 


06412 
1341 006420 020122 ~~ 046505 


1343 006432 ~ EVEN 
1344 006432 04C057 057 MSG2: .ASCII ;/a/; 
1345 006436 EVEN 


1346 006456 040057 055103 053513 MSGS: “ASCII ;/@CZKWBJ KW11-P RT CLK TSTa/; 


1349 006460 041440 045514 052040 

LE 006466 052123 027500 si 

1352 006472 040057 042522 052123 MSGPWR: .ASCII ;/@RESTARTING AFTER A POWER FAILURE@a@/: 
1353 006500 051101 044524 043516 

1354 006506 040440 052106 051105 

1355 006514 040440 050040 053517 

1356 006522 051105 043040 044501 

1357 006530 =“ 042522 040100 


1360 006540 040057 047531 020125 XORM: .ASCII :/@YOU ARE ON AN XOR TESTER@/: 


554 
1363 006562 020122 042524 052123 
1364 006570 051105 027500 





1365 EVEN 
ae : TIMER FOR KW11-P CLOCK 
1368 006574 172562 CSB1: 172562 
1369 006576 172560 CSR1: 

1370 006600 172564 CTR1 

1371 006602 000504 CKV1 

1372 04 000506 CKVS1 

1373 06 000000 CLKFLG 

1374 006610 000079 INTFLG 

1375 006612 177566 PDBR 

1376 006614 177564 PCSR 


066 : 
1377 006616 000064 PVEC: 


CZKWBJO KW11-P RT CLK TST 


C 


ZKWBJ.P11 


006620 


006636 


006640 


007014 


000065 


0 
006714 


012706 


000137 
012706 


012737 


19-APR-78 09:55 


000776 


007250 
000776 


164217 


MACY11 30A(1052) 


007674 
007702 


010506 
010536 


007674 


K100HZ: 


K10HZ: 


SUBROUTINES 


66 
177562 
177560 
60 


62 
0 
0 


e 
Ps 
ee 
‘ 
iE 
: 
ee 
: 
» 0% 
e 
* 


#BUFF ,2%6 
27, SWADJ 





#BUFF ,%6 
JSR %7,SWADJ 


aPsw 
#-13561,CLK+2 


B 3 
19-APR-78 09:58 PAGE 27 


SHAS 


SHA 


wm 


SEQ 0027 


: TEMP LOC FOR SOFT-SWR CONTENTS 
sLOC FOR 1 


# INPUT VIA TTY 


THIS CPU HAVE A SWITCH REG.? 
> 100KH2Z 


sLEAST VALUE 
:MOST VALUE 


THIS CPU HAVE A SWITCH REG.? 
:10KH2 


CZKWBJO KW11-P RT CLK TST 
P11 19-APR-78 09:55 


CZKWBJ 


007022 
007030 
097034 
007040 
007044 


012737 
012700 
012701 
004537 
012737 


000133 007702 
010356 
010416 
007234 
000000 010506 


MACY11 30A(1052) 


ee 
19-APR-78 09:58 PAGE 28 


SUBROUTINES 

MOV #133, CLK1+2 
MOV #TABL ,%0 
MOV #TABL2 ,%1 
JSR %5,a#MOVE 
MOV #0. ,CLK3+2 


SEQ 0028 


b 3 
CZKWBJO KW11-P RT CLK TST MACY11 30A(1052) 19-APR-78 09:58 PAGE 29 
CZKWBJ.P11 19-APR-78 09:55 SUBROUTINES 


1439 007052 012737 001130 010536 MOV #600. ,CLK4+2 
1440 007060 000137 007250 JMP av INIT 


SEQ 0029 


CZKWBJO KW11-P RT CLK TST 


CZKWBJ.P11 


1441 
1442 
1443 
1444 


19-APR-78 09:55 


007064 012706 000776 
007070 004737 011652 


007074 005077 


177540 


MACY11 30A(1052) 


H607: 


E 
19=APR-78 09:58 
SUBROUTINES 


MOV #BUFF ,%6 
JSR %7,SWADJ 
CLR aPSwW 


3 
PAGE 30 


;HAS THIS CPU HAVE A SWITCH REG.? 


SEQ 0030 


LES ET RA 


a 
CZKWBJO KW11-P RT CLK TST MACY11 30A(1052) 19-APR-78 09:58 PAGE 31 
CZKWBJ.P11 19-APR-78 09:55 SUBROUTINES 


1445 007100 012737 177733 007674 MOV #=-45 ,CLKt2 ;60HZ 


SEQ 0031 


G 3 
CZKWBJO KW11-P RT CLK TST MACY11 30A(1052) 19-APR-78 09:58 PAGE 32 
CZKWBJ.P11 19-APR-78 09:55 SUBROUTINES 


1446 007106 012737 000135 007702 MOV #135,CLK1+2 


SEQ 0032 


CZKWBJO KW11-P RT CLK TST 


CZKW 


WBJ.P11 


007114 


007144 
007150 


007230 
007234 


007246 
007250 


007466 


012700 
012701 


000137 


012706 
004737 
005077 
012737 
012737 
012700 
012701 
004537 
012737 
012737 
000137 


012702 
012120 
005202 
0071375 
000205 


013737 


012777 


19-APR-78 09:55 


010356 


007250 
000776 


007250 
177771 


005572 


000002 


000001 
000004 
006606 


177106 
007762 


MACY11 


010506 
010536 


007674 
007702 


010506 
010536 


000024 


006642 
006644 


177222 


171414 


171402 


171372 


177106 


30A(1052) 


H502: 


MOVE: 
1$: 


INIT: 


START: 
WAITA: 


WAITB: 
CLKON: 


H 5 
19-APR-78 09:58 PAGE 33 


SUBROUTINES 

MOV #TABL ,%0 
MOV #TABL3,%1 
JSR 45, a#MOVE 
MOV #00, CLK3+2 
MOV #600. ~CLK4+2 
JMP NIT 

MOV #BUFF ,%6 
JSR %7,SWADJ 
CLR aPSw 

MOV #-36,CLK+2 
MOV #135,CLK1+2 
MOV #TABL ,Z0 
MOV #TABL4 ,2%1 
JSR 25 ,a#MOVE 
MOV #0.,CLK3+2 
MOV #580. ,CLK4+2 
JMP avINIT 

MOV #-7,%2 

MOV (21)+,(20)+ 
INC Z2 

BNE 1$ 

RTS x5 

MOV PWRF1,24 
MOV #BUFF ,%6 
CLR @a*LST 

CLR aanst 

MOV #60, a#HRS1 
MOV #60, a#HRS2 
MOV ,OFR Ini 
MOV #60 ,a#SEC! 
MOV #60 ,a@SEC2 
MOV #CLKI,acKy 
MOV #340, ,acKvs 
MOV #KINTR, @KVEC 
MOV ax 
MOV #200 ,aPVECS 
MOV 00,aKc 
CLR CLKFLG 
CLR @#INTFLG 
CLR CSR 

CLR acsB 

BIT #2,aSR 

BEQ CLKON 

WAIT 

BIT #1,aSR 

SNE 

BIT #4,aSR 

BEQ 

TST @#CLKFLG 
BNE WAITA 

CLR acsB' 

MOV #KOUT,acKvi 


;HAS THIS CPU HAVE A SWITCH REG.? 


: 50HZ 


: INITIALIZE 


sWAIT LOOP, SW 1 CAUSE WAIT 


;SW 0 TURNS ON CLK2 

;SW 2 DETERMINES PRESENCE OF CLOCK 2 
sCLKFLG ALLOW CLK 2 TO BE TURNED ON 
ONLY ONCE 


SEQ 0033 


CZKWBJO Bie -P RT CLK TST 


CZKWBJ 


el ed ed ed et nd od od > 
MMMM WAV 
PND PRD IAD wed ed et ed ot oe od os 
MOO ONAVPWH-oO 


007474 


007550 
007554 


007560 
007564 
007570 
007574 
007576 
007602 
007604 
007610 
007612 


007614 
007620 
007624 
007632 
007640 
007644 
007650 
007656 


007660 
007666 
007672 
007700 
007706 


007710 
007714 


007750 
007756 


007760 
007762 


007766 
007774 


012777 


900137 
017701 


000602 


005077 


000002 


012777 
017701 
012777 
012777 
000002 


013704 


017737 
000002 


000000 
005037 


012777 
012700 


19-APR-78 09:55 


000200 


000004 


177026 
177020 
007422 


177036 
177600 
000007 


000011 
000024 


171160 
171156 
177772 
006642 
006656 
006660 
007710 


007560 


000131 


006634 
176702 
000300 


006634 
006632 


007660 


176646 


006610 


007750 
006642 


MACY1? 30A(1052) 


177102 


177052 


171302 


006632 
006634 


176750 
176740 


171102 
171072 


176660 


007760 


176632 


3$: 


4$: 
KINTR: 


KIN: 


KINI2: 
CLK: 
CLK1: 


KINI: 


1$: 


HOLDIT: 


HOLD: 
KOUT: 


. @ 
19=APR=78 09:58 PAGE 34 


SUBROUTINES 
MOV #200, aCkVS1 
MOV #-1, a#CLKFLG 
MOV #141521,aCSB1 
MOV #113,aCSR1 
JMP WAITB 

CLR a#CLKFLG 

BIT #4,aSR 

BEQ 4$ 

CLR acsri 

CLR acsel 

JMP WAITA 

MOV @kDBR,%1 

BIC #177600,%1 
CMP #7,%1 

BEQ CNGSWR 

CMP ah 21 

BEQ 

CMP #24, %1 

BEQ KOUT 

RTI 

CLR acsR 

CLR acse 

MOV #-6,a#CNT 
MOV #HRS1,a#CNTI 
CLR LST 

CLR MST 

MOV #KINI, @KVEC 
RTI | 

MOV #KINTR,@KVEC 
MOV akOBR,%1 

MOV #0,acSB 

MOV #131, aCsR 
RTI 

MOV @sCNT1,%4 
MOV @kOBR, 21 
BIC #300,%1 

MOV Z1,(24)+ 
MOV 24, a0CNT. 
INC avcNnT 

BNE 1$ 

MOV #KINI2, @KVEC 
RTI 

MOV @KDBR, a#HOLD 
RTI 

0 

CLR av INTFLG 
MOV 


#HOLDIT ,aKVEC 
#HRS1,20 


; TURN ON CLK 2 
CLEAR CLK 2 IF PRESENT 


; KEYBOARD oP HANDLER 
:STRIP JUNK 

‘1S CHAR A G(CONTROL-G)? 

;1F YES,GO TO CNGSWR 

:1S IT A CNTRL . 2 


:1S IT A CNTRL T ? 


sHANDLER FOR CTRi I 
;SETUP TIME OF DAY 


; INPUT 


;AWAIT A CHAR TO START 
sCLK 1 


;STORE TIME Ur DAY 


;DUMMY INTERRUPT SERVICE ROUTINE 


; INPUT HANDLER FOR CTRL T 
SET DUMMY VECTOR 
:GET TIME OF DAY INTO 


SEQ 0034 


CZKWBJO — P RT CLK TST 


CZKW 


BJ.P 


010000 
010004 


010230 


012703 


000137 


010246 
010346 


005037 


012702 
105777 
100375 
017701 
042701 


105777 


005203 
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006662 
177770 


170762 
006610 


007674 
007674 


007674 


007674 


010356 


000007 


006700 
010772 


006702 


010324 
006704 


176442 


176432 
177600 


176414 


176404 
000025 


000015 
000012 


MACY11 30A(1052) 


164217 


177742 


1$: 


10$: 


38: 
2$: 
5$: 
6$: 


4$: 


CNGSWR: 


SETBYT: 


CKCSR: 


5$: 


J 3 
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SUBROUTI 


NES 
WHRS1A,%3 
#-10,%4 
(%0)+, (%235)+ 
%4 

1$ 


acTR,%1 
Q@#INTFLG 


a*CLK+2,%1 

z1 

z1 

@#CLK+2 ,#-13561 
3$ 


z1 
kts oo 38 


#7,20 

6$ 
23,QaMSTA 
a#CLK2 
Z2,7(6) 
23.-(6) 
TAPSWR 

z2 


PC, CRLF 
eBYT1,22 


akCSR 
CKCSR 


@KOBR , 21 
#177600 ,21 


;WORK AREA 


;SEE IF CLK HAS oo ro IN THIS TIME 
CALC VALUE OF CTR 

15 CLOCK RUNNING AT 100KHZ ? 

;SUB INIT VALUE 

1S CLOCK RUNNING AT 10KHZ ? 


:1S CLOCK RUNNING AT SOHZ ? 


sADD VALUE OF CTR TO MST 


sSAVE R2 
sSAVE R3 


>CLEAR TEMP SwWR 
;CLEAR RS 


“PRINT <CR><LF> 
:INIT R2 TO 1ST BYTE LOC 


:1S CHAR TYPED? 

s1F NOT WAIT 

;ELSE MOVE THE CHAR TO R1 
sSTRIP JUNK 


HAR U (CONTROL=U)? 
RT OVER 


F crise TO SWDONE 


QUAL,GO TO SWDONE 
CATE A CHAR INPUTTED 


— MTi— Mri —< 
oad 
ee 


D 


SEQ 0035 


rr 


kK 3 
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CZKWBJ.P11 —- 19-APR-78 09:55 SUBROUTINES SEQ 0036 

1615 010232 042701 177770 BIC #177770,%1 ;LEAVE ONLY BINARY # IN R1 

1616 010236 110122 MOVB =. %1,, (2) + ;MOVE # TO PROPER BYTE LOC 

1617 010240 022702 006712 CMP 2s #BYT7,%2 :1S R2 PAST BYT6 ADDR? 

1618 010244 001344 BNE CKCSR ;1F NOT,GO BACK FOR ANOTHER CHAR 

1619 010246 SWDONE : 

1620 010246 005703 TST 43 ;WAS A CHAR TYPED? 

1621 010250 001420 BEQ 30$ IF NOT, EXIT 

1622 010252 012703 006704 MOV ss #BYT1,%3 ;INIT R3 TO 1ST BYTE ADDR 

1623 010256 108: 

1624 010256 152337 006702 BISB (3) +, THPSWR ;SET LOW 3 BITS OF TMPSUR 

1625 010262 020302 CMP «3,22 ;1$ R3 EQUAL BYTE ADDR IN R2? 

1626 010264 001407 BEQ = 208 ;1F YES ,EXIT 

1627 010266 006137 006702 ROL TMPSWR ZELSE 

1628 010272 006137 006702 ROL TMPSWR : SHIFT 

1629 010276 006137 006702 ROL TMPSWR :NEXT 3 BITS UP 

1630 010302 000765 BR 108 :AND GO GET ANOTHER # 

1631 010304 208: 

1632 010304 013777 006702 170532 MOV TMPSWR,@SR :SET UP NEW SWR 

1633 010312 30S: 

1634 010312 012603 MOV (6)+,23 ;RESTORE R3 

1635 010314 012602 MOV (6)+,%2 RESTORE R2 

1636 010316 004737 010324 JSR —s- PC, CRLF :PRINT <CR><LF> 

1637 010322 000002 RTI 

1638 

1639 010324 CRLF: 

1640 010324 105777 176264 TSTB = @PCSR :1S TTY READY? 

1641 010330 100375 BPL CRLF :1F NOT,WAIT 

1642 010332 012777 000215 176252 MOV § #215, aPDBR [ELSE TYPE <CR> 

1643 010340 108 

1644 010340 105777 176250 TSTB = @PCSR :1S TTY READY? 

1645 010344 100375 BPL 10$ :1F NOT.WAIT 

1646 010346 012777 000212 176236 MOV = #212, @PDBR ELSE TYPE <LF> 

1647 010354 000207 RTS —s PC 

1649 010356 000510 TABL: 328. ;TABLE FOR WORK AREA 

1650 010360 000244 64. 

1651 010362 000122 k 

1652 010364 000051 1. 

1653 010366 000024 ; 

1654 010370 000012 10. 

1655 010372 000005 : 

1656 010374 000003 

1658 010376 000510 TABL1: 328. ;100KHZ TIME TABLE 

1659 010400 000244 164. 

1660 010402 000122 82. 

1661 010404 000051 41. 

1662 010406 000024 20. 

1663 010410 000012 10. 

1664 010412 000005 5. 

1665 010414 000003 3. 

1667 010416 000632 TABL2: 410. ;10KH2 TIME TABLE 

1668 010420 000315 205. 

1669 010422 000146 102. 

1670 010424 000063 51. 


CZKWBJO KW11-P RT CLK TST 
CZKWBJ.P11 


010426 


010434 


010436 
010440 
010442 
010444 
010446 
010450 
010452 
010454 


010456 


010474 


010476 


010672 


000032 
000015 
000006 
000003 


001025 


000000 


000500 
000240 
000120 
000050 
000024 
000000 
000000 
000000 


012737 


02 
012737 
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177777 
000044 
000144 


000144 


001750 


001750 
006654 
000072 


000060 
006652 
000066 


000060 
006650 


000072 


000060 
006646 
000066 


000060 


MACY11 30A(1052) 


006610 
006656 
006656 
006656 


006660 
006660 


006660 
006654 


006654 
006652 


006652 
006650 


006650 
006646 


006646 


. ¥ 
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SUBROUTINES 


TABL3: 


TABL4: +4 


THIS ROUTINE KEEPS THE 24 HOUR 
> TIME OF DAY 


CLKI: MOV #-1 ,@#INTFLG 
CLK3: ADD #36. ,a#LST 
CMP ae 


BGT C 
SUB #100. ,a#LST 
INC QeAstT 

CLK4: ADD mob gail 
CMP #1000. ,agmMsT 
BGT 2$ 
SUB #1000. ,a#MST 
INC a#SEC 
CMP #72 ,a#SEC2 
BEQ +4 

2s: RTI 
MOV #60 ,a#SEC2 
INC 1 
CMP #66 ,a#SECl 
BEQ +4 
RTI 
MOV #60 ,a#SEC1 
INC a#eMIN2 
CMP #72 ,a#MIN2 
BEQ +4 
RTI 
MOV #60,a#MIN2 
INC aamIni 
CMP #66 ,a#MIN1 
BEQ +4 
RTI 


MOV #60 ,a#MIN1 


:INC M 
: HAS 


;60HZ TIME TABLE 


;S0HZ TIME TABLE 


sCLOCK INTERRUPT SERVICE ROUTINE 
ADD LSB TO LST 
ID IT OVER FLOW 


MST 
MSB TO MST 
IT OVER FLOW 


SECOND 
10 SECONDS ELAPSED 


MSB OF SECOND 
60 MIN ELAPSED 


LSB OF MIN 
10 MIN ELAPSED 


B OF MIN 
60 MIN ELAPSED 


SEQ 0037 


CZKWBJO KW11-P RT CLK TST 
CZKWBJ.P11 


1781 
1782 


010700 


010770 


010772 
011000 


ee eh ee ee eh eh ee ee ee ee eed eed eed 
TD IAD ee ee ee kk ek ek ed td ed et 

ONNAUWIUES & Nm — 
RNVANRARNRAKSNSROS 


Oo 


11206 
011212 


005237 
0 


000002 


022737 


000405 
005237 


012737 
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006644 
000064 


000062 
000060 
000060 
000072 


006642 
000060 


001750 


001750 
006674 
000072 


000060 
006672 
000066 


000060 
006670 
000072 


000060 
006666 
000066 


000060 
006664 
000064 
000062 
000060 
000060 
000072 


006662 
000060 


M 3 
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006644 
006642 
006642 
006644 
006644 


006644 


006700 
006700 
006674 


006674 
006672 


006672 
006670 


006670 
006666 


006666 
006664 
006662 
sete 
006664 


006664 


NEWTM: 


CLKe: 


NEWT: 





SUBROUTINES 

INC a#HRS2 > INC LSB OF HOURS 

CMP #64 ,a#HRS2 71S LSB A 4 

BNE NEWTM 

CMP #62 ,a#HRS1 IF YES, IS MSB A 2 
(ee 

MOV #60 ,a#HRS1 IF 24 HOURS RESET 
att #60 ,a#HRS2 ;LSB AND MSB OF HOURS 
CMP #72 ,a#HRS2 :1F NOT 4 IS IT 10 HOURS 
BEQ +4 

RTI 

INC @#HRS1 ;YES INC MSB OF HOURS 
MOV #60 ,a#HRS2 

RTI 

oe 4 te andi > THIS ROUTINE IS THE WORK 
SUB #1000. ,a#MSTA sAREA ROUTINE AND IS THE 
INC @#SEC2A :SAME AS INTERRUPT HANDLER 
CMP #72 ,a#SEC2A SERVICE ROUTINE 

BEQ +4 

BR 1A 

MOV #60 ,a#SEC2A 

INC #SECIA 

CMP #66 ,@#SECIA 

BEQ : 

BR ENDIA 

MOV #60 ,a#SECIA 

INC IN2A 

CMP #72, QMMIN2A 

BR ENDIA 

MOV #60, Q@RIN2A 

INC @FRINIA 

CMP #66 ,a#MINIA 

BEQ +4 

BR ENDIA 

MOV #60 ,a#MINIA 

INC HR 

CMP #64 ,Q#HRS2A 

BNE T 

CMP #62 ,Q#HRSIA 

BEQ +4 

BR ENDIA 

MOV #60 ,a#HRSIA 

MOV #60 ,@#HRS2A 

BR ENDIA 

CMP #72 ,Q@#HRS2A 

BEQ +4 

BR ENDIA 

INC @#HRSIA 

MOV #60 ,@#HRS2A 


SEQ 0038 


CZKWBJO KW11-P RT CLK TST 
CZKWBJ.P11 


011220 


0 
011256 
011264 


011266 
011274 
011302 


011304 


011374 
011376 
011404 
011412 


011414 


011514 


011516 
011524 


011546 


012777 


000002 


012777 
012777 
000002 


012777 
012777 
000002 
005237 
001414 
005737 
001420 
013704 
012477 
010437 
005237 
000002 
012777 
012777 
000002 


012737 
012777 
000002 


005037 
000250 


100405 
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011266 
177776 
006662 
177767 
000000 
000100 


011304 
000215 


011322 
000212 
006632 
0066356 
006634 
175244 
006634 
006636 
011414 
000056 


177776 
000072 


006636 
006700 
177767 
000144 
006636 
006632 
000144 
000060 


01151€ 
006636 


011600 
006636 


177767 
000012 


MACY11 30A(1052) 


175370 
6 


175330 


175322 
175310 


175304 
175272 


175230 
175216 


006636 
175200 


006634 
006632 
006634 


006634 
006636 


175110 
175076 


175072 


006632 
006634 


ENDIA: 


CR: 


LF: 


PINTR: 


NUM1: 


1$: 


N 
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SUBROUTINES 

MOV #CR,aPVEC 
MOV #=2 ,a#CNT 
MOV #HRSTA,@#CNT1 
MOV #-11,aaC 

MOV #0 ,aPDBR 

MOV #100, aPCSR 
RTI 

MOV #LF ,aPVEC 
MOV #215,aPDBR 
RTI 

MOV #PINTR,@PVEC 
MOV #212, aPDBR 
RTI 

INC a#CNnT 

BEQ DONE 

TST CNTB 

BEQ COLON 

MOV @#CNT1, 24 
MOV (24)+, @PDBR 
MOV 24,a#CNT1 
INC asCNTB 

RTI 

MOV #PER ,aPVEC 
MOV #56 ,@PDBR 
RTI 

MOV #-2 ,a#CNTB 
MOV #72 ,aPOBR 
RTI 

CLR @#CNTB 

CLN 

MOV OFASTA,@@CNTI 
MOV #-9. ,@#CNT 
SUB #100. ,aaCnTt 
BAI 2$ 

INC a*CNTB 

INC. asCNnT 

BNE 1$ 

BR 3$ 

ADD #100. ,a#CnT1 
CLN 

ADD #60,a4CNTB 
MOV #NUM1 ,@PVEC 
MOV a*CNTB,aPDBR 
RTI 

MOV #NUM2 ,aPVEC 
CLR a#vCNTB 

CLN 

MOV #-9. ,a#CNT 
SUB #10. ,a#CNT1 
BAI 3$ 


3 
PAGE 39 


;SET UP FOR PRINTER OUTPUT 


;OUTPUT CR 


;OUTPUT LF 


;PRINT TWO DIGITS FOLLOWED 
sBY COLON UNTIL TIME OF 
sDAY IS PRINTED 


sWHEN DONE PRINT ‘’.°° 


:PRINT MSB OF MILLISEC 


PRINT LSB OF MILLISEC 


SEQ 0039 


CZKWBJO KW11-P RT CLK TS 
19-APR-78 


CZKWBJ 


-P11 


011550 


011576 


011600 
011606 


011610 


011616 
011620 
011622 
011626 
011632 
011636 
011642 
011644 
011646 
011650 


011652 
011656 
011664 
011670 
011674 
011676 
011700 
011704 


011712 


005237 
005237 
001367 
062737 
013777 
000002 


012777 
000002 


032777 
001401 


000207 
013746 
012737 
005777 
012637 
000207 
022626 
012637 
012737 


000207 


000001 


T 
09:55 


006636 
006632 


000060 
006636 


007560 


000010 


001034 
001024 
001032 
000002 


000004 


111676 
167154 
000004 


000004 
000176 


MACY11 30A(1052) 


006636 
175014 


175020 


167226 


000004 


001044 


3$: 


NUM2: 


DELADJ: 


1$: 


2$: 


SWADJ: 


SWADJ1: 


~ END 


B 4 
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SUBROUTINES 

INC avCNTB 

INC a#CNT 

BNE 1$ 

ADD #60,a#CNTB 
MOV @a#CNTIB,aPDBR 
RTI 

MOV #KINTR,AKVEC 
RTI 

BIT #10,aSR 

BEQ 1§ 

RTS %7 

MOV #ADJ,R1 

MOV #DEL1,R0 
MOV #DEL4,R2 
ADD #2,R2 

MOV (R1)+, (RO)+ 
CMP 2RO 

BNE 

RTS z7 

MOV a#4 ,~(26) 
MOV #SWADJ1 .a#4 
TST ask 

MOV (%6)+ 284 
RTS 27 

CMP (Z6)+, (26)+ 
MOV (76)+,a84 
MOV #SOFTSR.SR 
RTS z7 


RESTORE KEYBOARD VECTOR 


TEST FOR SR35=0 WHICH INDICATES 
11/60, 11/70 811/45 WITH MOS 
sADJUST DELAY TIMES 

;NO ADJUSTMENTS REQUIRED 

;GET START OF REG. FOR ADJUST 
sGET START OF REG. TO ADJUST 
sGET END TAG OF ADJUSTMENT 
sUPDATE END CHECK 

UPDATE DELAY COUNTS 

sARE WE DONE 

NO CONTINUE UPDATE 
sADJUSTMENT MADE 


SAVE CONTENT OF TRAP 
> VECTOR 


;VE 

SET UP NEW TRAP VECTOR 
TEST FOR SWITCH REG. 
sRESTORE STACK NO 

> TIME OUT ACCONED. 


sUPDATE STACK 

sRESTORE TRAP VECTOR 
SET SWITCH REG.(SR) TO 
sEQUAL SOFTSR 

RETURN TO CALLER 


SEQ 0049 


CZKWBJO KW11-P RT CLK TST 
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CZKWBJ.P11 
ADJ 001034 
BEGIN 001150 
BEGIN1 005210 
BEGIN2 001046 
BUFF = 000776 
BYT1 006704 
BYT2 006705 
BYT3 006706 
BYT4 006707 
BYTS 006710 
BYT6 006711 
BYT7 006712 
CACL 004446 
CC = 177776 
CHAR 06100 
CKCSR 010156 
CKV 00100€ 
CKVS C£1010 
CKVS1 006604 
CKV1 006602 
LK 007672 
CLKFLG 006606 
CLKI 010476 
CLKON 007434 
CLKSER 004240 
CLKXIT 004244 
LK1 007700 
CLK2 010772 
CLK3 010504 
CLK4 010534 
CNGSWR 010134 
NT 006632 
CNTB 006636 
CNT1 006634 
COLON 011376 
CR 011266 
CRLF 010324 
CSB 001002 
CSB1 006574 
CSR 001000 
CSRT 001312 
SR1 006576 


MACY11 30A(1052) 
CROSS REFERENCE TARLE == USER SYMBOLS 


516 
1179 


C 4 
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13694 


1224 
1214 


880 


884% 
12748 


899+ 
1485* 


1567 


1313 


895 


1088* 
1277 


948 


1569 


1143 


1104* 


952s 


1572 





1217 


1287* 


975% 


1575 


1418 


1145* 


1430 


1482* 


1442 


1004 
1075* 
1153* 


SEQ 0041 


1454 


1843 


D 4 
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CZKWBJ.P11 19-APR-78 09:55 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0042 
CTR 001004 4624 541* 542 550 562 577 584 675 688 707 723 740 757 
774 789 806 825 929 1007 1015 1049 1057 1074 1082 1242 1564 
CTRLI = 000211 13864 
CTRLT = 000224 13874 
CTR1 006600 13704 
DELADJ 011610 490 0 18544 
DELY 004416 1003 1011 10204 1045 1053 1070 1078 
DEL1 001024 4708 700 767 836 858 873 889 902 1091 1107 1859 
DEL2 001026 471# 716 782 
DEL3 001030 472# 55$ 569 733 799 
DEL4 001032 4738 750 817 1860 
DONE 011360 1800 18084 
ENDIA 011220 1752 1757 1 1767 1774 1777 1780 17834 
EOMK 006366 1317* 1518 13354 
HLT = 104000 4448 525 539 544 552 564 579 586 592 596 600 604 610 
614 620 624 633 637 647 656 665 677 690 706 709 722 
725 739 742 756 759 773 776 788 791 0 808 3 827 
840 845 84 862 879 893 906 966 1006 1014 1017 1048 
1056 1059 1073 1081 1084 1097 1101 1113 1117 
007760 1551* 15544 
007750 15514 1557 
006642 13894 1476* 1529 1558 1730 17335* 1739* 
006662 13978 1559 1772 1775* 1781* 1785 
006644 1390# 1477* 1727 1728 1734* 81736 1740* 
006664 13984 1769* 1770 1776" 1778 1782+ 
007150 457 14544 
007064 456 14428 
001022 4694 496% 514* 1301 
007250 1428 1440 1452 1464 14728 
006610 13748 1489 1556* 1565 1697* 
006624 13804 1487* 16 
006622 1379# 1515 1536 1542 1551 1602 
007614 1520 15264 
007710 1532 15418 
007660 15354 1548 
007560 1484 15154 1535 1846 
007762 1502 1522 15564 1566 
006626 13818 1484* 1532" 1535" 1548% 1557 18468 
006630 13824 1485* 
007000 455 14304 
006714 454 14184 
011304 1792 17964 
005570 1180* 1183* 1185 1198 12098 
005174 443 11304 
004152 958% 974 
006656 1395 1474* 1530*  1698* 1699 1701* 
006676 1403% 
006646 13914 1478 1722% 1723 1726* 
006666 13998 1764* 1765 1768+ 
006650 13924 1479 1717% 1718 1721* 
006670 1400# 1759* 1760 1763+ 
007234 1425 1437 1449 1461 14664 
006472 1221 13524 
006370 1231 1337# » 
006432 1234 13444 





006436 487 13464 
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CZKWBJ.P11 19-APR-78 09:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0043 
MST 006660 13964 1475* 1531* 1702* 1703* 1704 1706+ 
MSTA 006700 1404# 1589* 1746 1748* 1818 
NEWT 011174 1771 17788 
NEWTM 010744 1729 17364 
NOP = 000240 4464 
UM1 011516 1829 18334 
UM2 011600 1833 18464 
OCT 6076 1259* 1269% 12734 
OCTP 006102 1256 1267 12754 
OCTPRT 5766 1239 1241 1243 1245 12524 
oct 006006 1254 12564 
OCT2 006024 12604 1270 
PCSR 006614 13764 1605 1640 1644 1788+ 
PDBR 006612 1375# = =1607* 1642 1646 1787* 1793* 1797% 1804% 1809* 1813* 1830* 1843 
PER 011414 1808 18164 
INTR 011322 1796 17998 
RINT 005650 438 12284 
RINT1 005764 509* 1232 1236* 12508 
PSW 006640 504% 949* 959 961* 13884 14208 1432% 14448 1456% 
PVEC 006616 1377# =6©1783* 1792% 1796 1808  1829% 1833+ 
PVECS 006620 1378# 1486* 
RDWN 005610 1213 12154 
RF1 005572 503 12124 1472 
RF2 005602 1147 12144 
RRTN 5646 1212* 1214% 1223 12244 
PWRUP 005620 1215 12174 
RETURN 006264 508* 1288 1306* 13134 
SCOPE = 104400 4478 535 548 556 566 581 588 606 616 628 640 648 657 


670 683 696 712 727 744 765 778 793 811 829 852 867 
883 897 922 947 996 1041 1064 1086 1103 1118 


SCOPEB 006136 12864 1292 1304 1312 

SCOPEC 006150 440 12914 
SCOPEF 006250 506* 1301 1303* 1305+  13508¢ 

SCOPEG 006236 1300 1302 13054 

SEC1 006652 1393#@ 1480* 1712* 171 1716* 

SECIA 006672 14018 1754* 1755 1758 

SEC2 006654 13948 1481* 1707* 711 

SEC2A 006674 14024 1749* 1750 1753* 

SETBYT 010140 15944 1609 

SOFTSR= 000176 448# 1877 

P 006120 1271 12804 

PSA 006132 1280 12834 

SR 001044 4798 529 745 812 924 997 1181 1195 1228 1246 1291 1299 1492 

1495 1497 1509 1632* 1854 1870 1877* 

START 007412 14904 ? 

WADJ 011652 489 501 1144 1419 1431 1445 1455 18678 

SWADJ1 011676 1869 18754 

SWDONE 010246 1611 1613 16194 

TABL 010356 1423 1435 1459 1580 16494 

TABL1 10376 1424 16584 

TABL2 010416 1436 16674 

TABL3 010436 1448 16764 

TABLS 010456 1460 16854 

i CSR 001014 4664 6 1122 1125 1157 1171 1189 1202 1275 1316* 1323 1327 1330 
TDBR 001012 4654 988* 1121" 1124" 11598 11738 1191% 1204 1277% 1325e 1329% 1332 

TEMP 001020 4684 505* 540% 542 547% 549 550 553 559% 560% 569% 575* 642* 


CZKWBJO KW11-P RT CLK TST 
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CZKWBJ.P11 

TEMP1 001016 
TIKTIK 004246 
TMPSWR 006702 
TOP 006266 
TOP 1 006360 
TOP2 006332 
TRPA 005204 
TSTEND 005134 
TYPE 004250 
TO 001254 
T1 001334 
T10 002226 
T10A 02250 
T11 002304 
TIIA 002324 
T12 002360 
T12A 002410 
T12B 002436 
713 002446 
T13A 002476 
7138 002524 
T14 002534 
TI4A 002572 
7148 002620 
T15 002630 
TISA 002670 
T15B 002716 
T16 002726 
TI6A 002756 
T16B 003004 
T17 003014 
TI7A 003044 
T17B 003072 
T18 003102 
T18A 003140 
7188 003166 
T19 003176 
T19A 03236 
7198 003266 
T20 003276 
T20A 003366 
T21 003426 
T21A 003512 
T22 003522 
T22A 003602 
T23 003616 
235A 3702 
25AA 003662 
724 003712 
24A 003744 


003774 


MACY11 30A(1052) 


4 
19-APR-78 09: 58 PAGE 45 
CROSS REFERENCE TABLE -~ USER SYMBOLS 


659+ 
719% 


660 
7 


673+ 


1629* 


13164 


678* 

753% 

846 
1049* 


1082* 


679 686* 688 
767* 770* 782* 
858* 859* 873* 
1074* 1091* 


SEQ 0044 


CZKWBJO KW11-P RT CLK TST 
19-APR-78 09:55 


CZKWBJ.P11 

T24C 004010 
T24D 004076 
T25 004264 
T25A 004502 
T26 004616 
Te? 004740 
T27A 005040 
T28 005256 
T28A 005270 
T29 005336 
T29A 005350 
T3 001414 
T3A 001442 
T3B 001504 
T30 005456 
731 005536 
T4 001572 
T5 001614 
T6 001712 
1? 001750 
T9 002006 
T9A 002052 
AITA 007422 
AITB 007432 
XOR 001230 
XORA 006254 
XORFLG 006252 
XORM 006540 
. = 011714 
- ABS. 011714 


ERRORS DETECTED: 


CZKWBJ.BIN, CZKWBJ.LST/CRF/SOL/NL: TOC=CZKWBJ.P11 
RUN-TIME: 2 4 .5 SECON NDS 


000 


0 


RUN-TIME RATIO: 41/7=5.7 


CORE USED: 


9K 


(17 PAGES) 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -=- USER SYMBOLS 


996# 


10864 


G 4 
19-APR-78 09:58 PAGE 46 


790 807 826 
1172 182 190 
1336# 13438 13454 
1761 1766 1773 


SEQ 0045 


